Excel-Tabelle nach Grafik sortieren

[Ligolier]

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

Hallo,

vielen Dank für den Vorschlag, doch leider nützt mir diese Variante nichts und es ist schade, dass man nicht nach Grafiken sortieren kann. Doch ich habe eine andere Methode gfunden, indem ich den html-Text der "Urtabelle" per VBA umwandle und so die von mir gewünschte Form erhalte.

Nochmals vielen Dank

Ligolier