Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe

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.

Drucken E-Mail

Relevante Artikel

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.