Spaltengruppierung per VBA in kompetter Mappe

[Cath]

Guten Morgen,

folgender VBA ermöglicht es mir, meine gruppierten Spalten zuzuklappen, jedoch nur für das aktive Blatt. Welcher Befehl bräuchte ich, um alle Spalten in der kompletten Datei gleichzeitig zuklappen zu können?

Sub zuklappen()
    With Columns("H:N")
         .Columns.Group
         .EntireColumn.Hidden = True
       End With
     With Columns("P:V")
         .Columns.Group
         .EntireColumn.Hidden = True
       End With
     With Columns("X:AD")
         .Columns.Group
         .EntireColumn.Hidden = True
       End With
End Sub

Besten Dank vorab!

[schauan]

Hallöchen,

gleichzeitig wird nix, wie Du schon festgestellt hast Der Code zur Gruppierung wirkt immer nur auf einem Blatt, Du müsstest z.B. eine Schleife für alle (betroffenen) Blätter drum herum programmieren.

[Cath]

Alles klar. Vielen Dank! Wie könnte denn diese Schleife aussehen?
Viele Grüße!

[schauan]

Hallöchen,

Code:

Sub zuklappen()
For Each Blaetter in Sheets()
Blaetter.Activate  
   With Columns("H:N")
        .Columns.Group
        .EntireColumn.Hidden = True
      End With
    With Columns("P:V")
        .Columns.Group
        .EntireColumn.Hidden = True
      End With
    With Columns("X:AD")
        .Columns.Group
        .EntireColumn.Hidden = True
      End With
Next
End Sub

Falls Du Option Explicit im Modul hast musst Du Blaetter noch dimensionieren.