Sub JedeZweiteZeilelöschen()
Dim i As Long
Sheets("Tabelle1").Activate
ActiveSheet.UsedRange.Select
For i = Selection.Rows.Count To 1 Step -1
If i Mod 2 = 1 Then
Selection.Rows(i).Delete Shift:=xlUp
End If
Next
End Sub
Sub JedeZweiteZeilelöschen()
Application.ScreenUpdating = False
Dim i As Long
Sheets("Tabelle3").Activate
For i = 5000 To 1 Step -1
If i Mod 2 = 1 Then
Rows(i).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Private Sub jedezweiteloeschen()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
ActiveSheet.UsedRange.Select
For i = 1 To 5000 Step 2
Rows(i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub
Sub ae()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
For i = 5000 To 1 Step -2
Rows(i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub