Jede zweite Zeile des benutzten Bereichs löschen (VBA)

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.

 

MerkenMerken

search previous next tag category expand menu location phone mail time cart zoom edit close