Office: Alle Gruppiererten Bereiche ein- und 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





Sub Gruppieren()


Tabelle4.Outline.ShowLevels RowLevels:=1 'einklappen der gruppierten Bereiche
Tabelle4.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 'einklappen der gruppierten Bereichen

End Sub

:)

 

wie geht hier der Befehl für ausklappen über alle Tabs

 

Hallo,

Code:

 

Die Freundlichkeit dieses TS lässt nichts zu wünschen übrig!
/Ironieoff

Mich wundert ja, dass da überhaupt jemand helfen mag.

 

Hallo Jonas,

ganz herzlichen dank. würde es auch funktionieren, beim erneuten anklicken, dass er dann alle wieder zu bzw. aufklappt

dh immer beim makro laufen macht er einmal alles aufklappen und bei erneuten ausführen alles zuklappen

 

Hallo,

das wirst Du doch wohl sicher selbst hinbekommen, wenn Du ein paar Minuten darüber nachdenkst.

Dir wurde doch bereits in anderen Beiträgen ein entsprechendes Feedback gegeben...

Vorab, bevor ich (wie Andere vor mir) unterstellt bekomme, dass ich Dir nicht hilfen möchte, würde ich gerne prophylaktisch auf #3 hinweisen *wink.gif*

Viel Erfolg und auf Besserung

 

Danke Jonas, ich kenne leider die Programmiersprache VBA bisher nicht und nähere mich meinen Problemen bisher so, dass ich einzelne Codeschnipsel nachvollziehe und dann entsprechend anpasse.

aber für ein und ausblenden von gruppierten habe ich leider keine Idee wie man das im code schreibt

sorry, ihr seid alle Profis hier und dann wird mir hier unterstellt dass ich nicht lernen will. wie soll ich den lernen wenn ich die Programmiersprache und befehle noch nicht kenne

 

Hallo,

Na eben indem Du sie lernst...Das fällt einem eben nicht in den Schoß. Meinst Du denn, dass die Helfer hier alle vom Himmel gefallen sind?

Ich kann mich doch auch nicht in eine russiche Vorlesung setzen, wenn ich die Sprache nicht kenne?! Versuche es mal mit den Basics und den Vokabeln, dazu gibt es viel kostenlosen Lesestoff im Netz.

 

Du könntest ja zB einfach mal versuchen (so mache ich es nämlich auch) den von Jonas zur Verfügung gestellten Code zu lesen und zu verstehen:

Code:

Wenn du dir die Zeile
Code:

mal ansiehst - was fällt dir da auf bzw. ein?

 

Servus Berni

das mein ich eben. ShowLevels 1 heisst alles zuklappen.
ShowLevel 100 heisst dann alles aufklappen oder wie kann ich dies programmiertechnisch sagen

 

Keine Ahnung wie du auf 100 kommst. Hast du 100 Ebenen zum ausklappen?
Ich würde eher 2 oder 3 Ebenen vermuten.

 

hi berni, das kann man nicht dynamisch machen oder

 

Ich muss dir ehrlich sagen, dass die Kritik der anderen Benutzer durchaus berechtigt ist. Was hält dich davon ab
a) ein wenig mittels googeln zu recherchieren
b) es einfach auszuprobieren?

Wenn du a) gemacht hättest, hättest du herausgefunden, dass Excel maximal 8 Gruppierungsebenen zulässt. Hättest du nun b) diesen Wert eingesetzt und einfach mal ausprobiert, wärst du schon schlauer.

 

danke berni. nett von dir.

lass uns doch bitte in diesem Forum nicht Kritik üben sondern nach lösungen suchen :-)


wie kann man das makro so schreiben, dass es bei einemal klicken aufklappt und beim zweiten mal klicken wieder den gruppierten Bereich zuklappiert

 

Es tut mir wirklich leid, aber ich kann da kein "uns" respektive "wir" entdecken. Und Kritik sollte - so sie denn konstruktiv ist - zulässig und m.E. sogar erwünscht sein.

Ich geb dir einfach noch den Tipp, dass du 2 Schaltflächen machst machst, das erfordert kein weiteres Überlegen, wie der Code funktioniert.
Nur so als Denkanstoß für die Lösung mit einer Schaltfläche: Was ist, wenn in einer Tabelle die Gruppierung ausgeklappt ist und in einer anderen Tabelle eingeklappt - wie soll sich der Code dann verhalten? Was wäre das gewünschte Ergebnis? Alle aus- oder alle einklappen?

Daher einfach mit 2 Schaltflächen lösen. Oder alternativ nicht mit einem Button, sondern mit einer Umschaltfläche (auch Togglebutton genannt).
Wenn Umschaltbutton eingeschaltet dann ausklappen, ansonsten umgekehrt.

Alles gute noch mit deinem Vorhaben.


EDIT:
Da ich kein unguter Mensch sein will:

Code: