Kann den einer mir sagen, wo ich in dem Code sehe welche Spalte angeprochen wird für die Sortierung ?
Das wurde dir doch schon direkt in der ersten Antwort beantwortet. Wo liegt also jetzt noch das Problem?
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=ActiveCell. _
Offset(0, 2).Range("A1:A65477"), SortOn:=xlSortOnValues, Order:=xlAscending _
, CustomOrder:="", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=ActiveCell. _
Range("A1:A65477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
Das sind die beiden Spalten.
Keiner kann dir genau die Spalten nennen, weil die eben von ActiveCell abhängig sind, also der gerade ausgewählten Zelle.
Der abschließende Teil .Range("A1:A65477") ist übrigens so ein totaler Unsinn, dass er einfach nur verwirrend ist.
Ersetze das durch .Resize(65477).
Grüße
|