Habe eine Tabelle die ich über ein Makro sortiere.
Mein Makro:
Sub Sortiere_Tabelle()
' Sortiere_Tabelle Makro
Range("A4:I54").Select
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"A5:A54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"E5:E54"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"B5:B54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle Einzel").Sort
.SetRange Range("A4:I54")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Mein Problem, das nicht immer gleich viel einträge in der Tabelle stehen, es sollte immer alles abhängig der Spalte B sortieren.
Jetzt ist es so das bis B54 sortiert wird, wenn ich jetzt aber nur einträge bis B 33 z.b habe dann sollte es nur bis B33 sortieren, oder eben wenn ich bis B65 Einträge habe dann eben soweit.
Ich hoffe mich verständlich ausgedrückt zu haben
Vielen Dank im Vorraus