Jede zweite Zeile des benutzten Bereichs ausblenden (VBA)

Mit dem folgenden VBA-Code können Sie jede zweite Zeile des benutzten Bereiches automatisch ausblenden.

Sub Jede_zweite_zeile_ausblenden()

    Dim Zeile As Integer

    For Zeile = 1 To ActiveSheet.UsedRange.Rows.count Step 2

        Rows(Zeile).Hidden = True

    Next

End Sub