|
Hallo Tom,
wenn Zeile 3 die erste Zeile ist die gelöscht werden soll, du jede zweite Zeile löschen willst (3, 5, 7, 9...) dann ist nicht die Zeile 1000 die letzte die gelöscht werden muss sondern die Zeile 999.
In deinem Makro löschst du aber jede Zeile und nicht jede zweite.
Jeweils natürlich nur A und B.
Beim Löschen immer von unten nach oben.
Das Makro beginnt in Zeile 999, löscht dort A und B, und dann 997 und das bis Zeile 3.
Public Sub jede_zweite_löschen()
Dim i As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
For i = 999 To 3 Step -2
Range(Cells(i, 1), Cells(i, 2)).Delete Shift:=xlUp
Next i
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Gruß Werner
|