Hallo zusammen,
ich möchte ohne .select sortieren. Kann mir jemand weiterhelfen, da mein Code nicht funktioniert:
Laufzeitfehler 1004
Der Sortierbezug ist ungültig. Bitte überprüfen Sie, ob sich der Sortierbezug innerhalb der markierten Daten befindet....
(l=26, m=17)
With Sheets("Hilfstabelle")
.Range("A1:C" & l - 1).Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("C1") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
.Range("E1:G" & m - 1).Sort Key1:=Range("F1"), Order1:=xlAscending, Key2:=Range("G1") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End With
Gruß Peter