Range("B4:J24")
Range("B25:J45")
bis .....
Range("B214:J234")
In jedem Block steht in Spalte J ein Datum, manchmal ist fehlt das Datum allerdings.
Überschriften sind keine vorhanden. Ich habe jetzt einen Block mit dem Macrorecorder
aufgezeichnet und 10 mal kopiert und die Zellbereich angepaßt. Es soll übrigens aufsteigend sortiert werden (Spalte J) und Überschriften sind nicht vorhanden.
Jetzt meine Frage:
Das Makro funktioniert natürlich, nur ist es sehr langsam. Die Bildschirmaktualisierung wurde bereits ausgeschaltet. Geht es mit entsprechendem angepaßten code schneller?
'Block 1
Range("B4:J24").Select
Selection.Sort Key1:=Range("J4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Block2
Range("B25:J45").Select
Selection.Sort Key1:=Range("J25"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.................
bis
'Block11
Range("B214:J234").Select
Selection.Sort Key1:=Range("J214"), Order1:=xlAescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal