Gruppierung per VBA eine/ausblenden

[ebhab]

Guten Morgen allerseits,

Ich habe in einer mehrschichtigen Spalten-Gruppierung (3 Levels) das Problem, dass man nur den gesamten Level ein- bzw. Ausklappen kann.
Ich kenne hierzu die Anweisung ActiveSheet.Outline.ShowLevels ColumnLevels:=2, um Level 2 auszublenden.
Im Level 2 habe ich aber mehrere Spalten-Gruppen, z. B. Spalte A, B, C erste Gruppe , D, E, F zweite Gruppe, etc.

Gibt es eine Möglichkeit, im Beispiel nur die zweite Gruppe in Level 2 ein/auszublenden?
Ich habe versucht, via Makro-Aufzeichnung und anklicken des Symbols zum Einklappen versucht, den Code für diese Aktion zu erhalten, das Ergebnis des Makros ergibt aber keine Code. 
Eine Lösung, durch Erhöhung der Levels zum Ziel zu kommen, ist schon wegen der Menge der Gruppen nicht zielführend.

Ich bin für jeden Tipp dankbar, da ich bisher keine Informationen zum Thema finden konnte, bis auf die Erkenntnis, dass wohl nicht alle manuellen Einstellungen auch per VBA erledigt werden können.
Vielen Dank im Voraus
Gruß Michael

[EbyAS]

Hallo Michael,
lade einmal ein Beispiel hoch.

[ebhab]

Hallo,
Anbei ein Screenshot, der das hoffentlich verdeutlicht, es ist eine komplexe Anwendung.
Ich möchte im Beispiel das SPENDEN-Konto via VBA einklappen, da es im Moment nicht im Interesse liegt.
Dazu reicht (ohne VBA) ein Klick im obersten Level auf das Symbol bei SPENDEN.
Per VBA geht aber nur der Level 1, der alle im obersten Level einplappt.
Ich hoffe, das macht mein Problem transparent.
Danke für die Unterstützung.
Gruß Michael

[ralf_b]

Per VBA geht aber nur der Level 1, der alle im obersten Level einplappt.

Wie sicher bist du mit dieser Aussage?
in VBA geht so ziemlich alles.

[ebhab]

Sichere Aussagen kann ich nicht geben.
Tatsache ist, dass im Beispiel durch Click auf Level 1 (am linken Rand) alle Konten ein- und aufklappen.
Ohne VBA erreiche ich das Einklappen nur eines einzelnen Kontos durch Click auf das betroffene Symbol über der ersten Spalte des Kontos (Level 1).
Andere Konten bleiben dann weiterhin aufgeklappt.
Letzteres benötige ich auch per VBA , eine Lösung hierzu habe ich noch nicht gefunden.