Jede zweite Spalte ausblenden (VBA)


Jede zweite Spalte ausblenden (VBA)

Jede zweite Spalte mit VBA ausblenden

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

 

Sub Jede_zweite_Spalte_ausblenden()

    Dim Spalte As Integer

    For Spalte = 1 To ActiveSheet.UsedRange.Columns.Count Step 2

        Columns(Spalte).Hidden = True

    Next

End Sub