Hy, wie kann ich diesen Script umbauen das er mir jede zweite Spalte ausblendet +drei Spalten daneben A,B,C,D,E,F,G,H,I,J,K. ausgeblendet sollen dann B,C,D,E UND G,H,J,K
Sub ZweiteSpalteAusblenden()
Dim Spalte As Long
Spalte = 1
While Spalte <= Cells.Columns.Count
Cells(1, Spalte).EntireColumn.Hidden = True
Spalte = Spalte + 2
Wend
End Sub |