Gruppierungen per VBA ein- und ausblenden

Sie kennen sicherlich den Befehl um Zeilen oder Spalten mit Hilfe der Gruppierungsfunktion aus- und anschließend wieder einzublenden.
 
Wenn Sie eine Gruppierung einfügen, wird bei Zeilen-Gruppierungen ein Plus- bzw. Minussymbol links neben der Zeilennummerierung eingeblendet. Bei Gruppierung von Spalten werden die Symbole oberhalb der Spaltenbezeichnung angezeigt, siehe Abbildung zur Zeilengruppierung.
 
 
 
In diesem Beispiel werden die Gruppierungen verschachtelt. Das bedeutet, wenn Sie auf das Minuszeichen bei Zeile 8 klicken, werden die Zeilen 6 und 7 ausgeblendet. Ein Klick auf das Minus in Zeile 10 blendet die Zeilen 5-9 aus und das Minus in zeile 15 bewirkt, dass die Zeilen 3-14 ausgeblendet werden.

Die Ziffern 1-4 oberhalb der Zeilennummer 1 bedeutet, dass es insgesamt 4 Gruppierungsebenen gibt. Bei der vierten Gruppierungsebene handelt es sich um die Anzeige aller Zeilen.
 
Diese Gruppierungsebenen können nun ganz einfach per VBA angesprochen werden.
 
Zum einblenen aller Zeilen (Zeile 3-14) verwenden Sie bitte folgenden Code:









Sub einblenden()
 '** RowLevel gibt die Gliederungstiefe an
 Sheets("Tabelle1").Outline.ShowLevels RowLevels:=4
 End Sub

Die Methode RowLevels:=4 sorgt dafür, dass alle Zeilen angezeigt werden. Wenn Sie den Parameter von 4 auf 3 ändern wird die Gruppierungsebene 3 und damit die Zeilen 6-7 ausgeblendet.

Bei RowLevels:=2 werden die Zeilen 4-9 udn bei RowsLevels:=1 entsprechend alle Zeilen versteckt.

Auf diese Weise können per VBA ganz einfach zwischen den verschiedenen Gruppierungsebenen gewechselt werden.

 
Wenn Sie Spalten anstatt Zeilen gruppieren möchten, dann verwenden Sie anstatt RowLevels:=1 den Befehl ColumnLevels:=1.
 
Sub einblenden()
 '** ColumnLevel gibt die Gliederungstiefe an
 Sheets("Tabelle1").Outline.ShowLevels ColumnLevels:=4
 End Sub

 

Hinweis:

Selbstverständlich funktioniert der Code nur, wenn Sie die Gruppierungen vorher manuell gesetzt haben. Ohne gesetzter Zeilen- oder Spaltengruppierung kann der VBA-Code keine Zeilen/Spalten ein- bzw. ausblenden.
 

Partnerlinks

Relevante Artikel

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.