Hallo,
ich habe mir mit dem Recorder ein kleines Makro geschrieben, und es funktioniert sogar.
Eine Funktion ist unter anderem die Tabelle nach Spalte G aufsteigend zu sortieren.
Hier ein Ausschnitt :
Columns("A:T").Select
ActiveWorkbook.Worksheets("Auswertung 12900").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Auswertung 12900").Sort.SortFields.Add Key:=Range( _
"G2:G12906"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Auswertung 12900").Sort
.SetRange Range("A1:T12906")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Nun geht die Sortierung bis G12906 was ein Problem mit einer Tabelle die mehr als 12906 Zeilen hat macht.
Irgendwie muss die Range variabel sein, als Basis könnte man die Spalte A nehmen, damit das Makro auch bei unterschiedlichen Zeilenanzahl funktioniert.
Hab schon viel hier gelesen und getestet aber irgendwie bekommen ich es nicht hin.
LG Andreas