Hallo,
ich möchte gern in Spalte A:B jede zweite Zeile ab der dritten löschen.
Mein Macro sieht so aus:
Range("A3:B3").Delete Shift:=xlUp
Range("A4:B4").Delete Shift:=xlUp
Range("A5:B5").Delete Shift:=xlUp
Range("A6:B6").Delete Shift:=xlUp
Range("A7:B7").Delete Shift:=xlUp
Range("A8:B8").Delete Shift:=xlUp
Range("A9:B9").Delete Shift:=xlUp
Range("A10:B10").Delete Shift:=xlUp
nur brauche ich das bis Zeile 1000.
Kann mir bitte jemand mit der Schleife helfen.
Danke
|