wie kann ich mit VBA Code jede Fünfte Zeile löschen?
Lieben Gruß
Amina
Sub test()
Dim zeile As Long
Dim Z_Start As Long
Dim Z_End As Long
Z_Start = Selection.Rows(1).Row + 4
Z_End = Selection.Rows(1).Row + Selection.Rows.Count - Int((Selection.Rows.Count / 5))
If Selection.Rows.Count
Sub ' weniger als 5 zeilen
For zeile = Z_Start To Z_End Step 4
Rows(zeile).Delete
Next
End Sub