Office: Gruppierung per Makro öffnen und schließen

Hallo zusammen,

kurz zu mir: ich benutze Excel täglich auf der Arbeit, habe aber keine Erfahrung mit VBA oder Makros. Wenn ich mal eins erstelle, ist es Copy&Paste aus dem Internet und hoffen, dass es funktioniert.

So, meine Frage: gibt es ein Makro, mit dem ich verschiedene Gruppierungen automatisch ein- und ausblenden kann?

Folgendes Makro habe ich schon gefunden und probiert:

Sub Test()
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
End Sub

Mit diesem Makro kann ich die gruppierten Spalten einblenden, die auf der Ebene 2 gruppiert wurden.
Mein Problem ist, wenn ich die Ebene der Gruppierungen im Makro auf 3 setze, werden auch automatisch die Gruppierungen der Ebene 2 geöffnet. Das möchte ich aber nicht, es soll nur Ebene 3 geöffnet werden.
Gibt es eine Möglichkeit, das Problem anders zu lösen?

Ich habe in dem Arbeitsblatt 3 Gruppierungen von Spalten und am schönsten wäre es, wenn diese sich jeweils alleine (über eine Schaltfläche per Klick) steuern ließen, d.h. einzeln ein- und ausblenden ließen.
Wie lassen sich Gruppierungen überhaupt schließen (per Makro) bisher kann ich nur öffnen.

Könnt ihr mir hier helfen?
Ich danke im Voraus.

Viele Grüße
Dundee 88

:)

 

Hallo,

die Outline.ShowLevels-Methode wird hier beschrieben. Du kannst nicht die Ebene 3 öffnen, aber Ebene 2 geschlossen lassen.

Mit ColumnLevels:=1 werden alle Ebenen geschlossen und mit ColumnLevels:=8 alle geöffnet Da du ja nicht 2 schliessen und 3 offen halten kannst, sagst du mit dem Befehl also, welche Gliederungsebene du gerne hättest. Entsprechend schliessen und öffnen sich auch die anderen.

Wenn du per Klick auf einen Button bestimmte Felder ein- und ausblenden möchtest, dann wird das mit der Gliederung und den dadurch begrenzten Ebenen nicht so funktionieren, wie du möchtest. Dann solltest du dich mit Eigentschaft Hidden von Columns auseinander setzen.

Grüsse
rastrans