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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen