Excel-Tabelle nach Grafik sortieren

[Officer]

Hallo,

nach Grafiken sortieren wird nicht funktionieren.

Füge einfach eine Hilfsspalte ein, im Beispiel Spalte F und sortiere diese nach per VBA. Im Beispiel wird die Liste aufsteigend nach Spalte F sortiert. Nachfolgend der VBA-Code dafür:

Code:

Sub Sortieren()
'** Sortieren der Einträge nach Hilfsspalte F

ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add2 Key:=Range("F1:F7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Tabelle1").Sort
    .SetRange Range("A1:F7")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End Sub

Die Beispiel-Datei habe ich ebenfalls beigefügt.

Gruß Alois