ich möchte meine Tabelle beim Öffnen der Userform sortieren lassen. Dafür habe ich bisher folgenden Code verwendet:
ActiveWorkbook.Worksheets("Feuerwehr").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuerwehr").Sort.SortFields.Add Key:=Range( _
"A9:A988"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuerwehr").Sort
.SetRange Range("A9:HJ988")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Dieser funktioniert zwar, benötigt aber zum sortieren meiner Tabelle mit ca. 250 Spalten und 150-200 Zeilen etwas lange. Gibt es eine Alternative, welche die Daten schneller von A nach Z sortiert?
Beste Grüße
Alex