Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Spaltengruppierung per VBA in kompetter Mappe
Normale Version: Spaltengruppierung per VBA in kompetter Mappe
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Cath

22.11.2019, 08:50
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

24.11.2019, 07:09
Hallöchen,

gleichzeitig wird nix, wie Du schon festgestellt hast Sad 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

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

schauan

25.11.2019, 21:16
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.
Clever-Excel-Forum > Office-Anwendungen > Excel > Spaltengruppierung per VBA in kompetter Mappe