Office: Zeilen / Spalten gruppieren einklappen / ausklappen

Hallo,

ich würde gerne in meinem persönlichen Makro Bereich ein Makro einbauen was folgendes macht:

Bei anklicken des makros werden alle Arbeitsblätter auf die kleinste Ebene eingeklappt (gruppierte Bereiche)

und wenn ich das makro nochmals starte,
werden alle Arbeitsblätter auf komplett ausgeklappt (dh. der gruppierte Bereiche ausgeklappt)

wie muss hierfür das makro aussehen. Im Anhang schon mal die Excel Datei als Muster inkl. Makro

:)

 

was ist der Unterschied dazu???
http://www.ms-office-forum.net/forum...d.php?t=348098

 

HI Berni,

leider geht das Makro so noch nicht. Kannst Du mir bitte weiterhelfen

 

Das Makro funktioniert tadellos, wenn man sich mal die Mühe macht und überlegt, was eigentlich darin steht.
1. Wird der Code nicht funktionieren, wenn du ihn nicht einer Umschaltfläche zuweist (die gar nicht vorhanden ist in deiner Datei). Also - Umschaltfläche einfügen, doppelklicken und den Code dort einfügen
2. Anpassen, dass auch die Spalten ausgeklappt werden. Fleißaufgabe für dich: Such die Lösung unter https://msdn.microsoft.com/en-us/vba...or=-2147217396
Gönn dir die Minute und denk darüber nach, es ist wirklich nicht schwer (Tipp: die Lösung findet sich unter der Überschrift Examples).

Ich hab den angepassten Code getestet (du musst nur eine Zeile verändern), er funktioniert wunderbar.

Frohe Weihnachten!

 

dh. ich muss diese zeile .ShowLevels 8

austauschen und diese unten einfügen, damit auch spalten ausgeblendet werden
.ShowLevels rowLevels:=8, columnLevels:=8