Jede zweite Zeile löschen (VBA)


Jede zweite Zeile löschen (VBA)

Jede zweite Zeile mit VBA löschen

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