Jede zweite Zeile ausblenden (VBA)


Jede zweite Zeile ausblenden (VBA)

Jede zweite Zeile mit VBA ausblenden

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