Mit dem folgenden VBA-Code können sie jede zweite Zeile des aktiven Tabellenblattes löschen. Es wird hierbei nur der benutzte Bereich des Tabellenblattes durchlaufen.
Sub Jede_zweite_Zeile_loeschen()
Dim Zeile As Integer
For Zeile = 1 To ActiveSheet.UsedRange.Rows.count Step 1
Rows(Zeile).EntireRow.Delete
Next
End Sub
Weiterführende Links:
Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.