Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     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.


   

Relevante Artikel

  • 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...

  • Computerpapier - Zeilen abwechselnd grau und weiß einfärben

    107007 Diese Prozedur färbt die Zeilen innerhalb einer Markierung abwechselnd weiß / grau ein.Dadurch ist bei umfangreichen Zahlenreihen eine bessere Lesbarkeit sowohl am Bildschirm als auch beim...

  • Bereich bei Eingabe der Farbnummer färben

    107004 Mit diesem Programm wird, der Bereich B1 bis B5 in der Farbe eingefärbt, deren Farbzahl in der Zelle A1 eingegeben wird. Der Code wird bei jeder Änderung der Farbzahl automatisch ausgeführt. Dafür...

  • Fehler #DIV/0! rot markieren

    107003   #DIV/0! in einer großen Tabelle zu finden kann recht mühselig werden...Mit den folgenden wenigen Zeilen formatierenSie diese Zellen rot und fett:     Sub ZellFehler_formatieren()...

  • Übersicht der wichtigsten VBA Konvertierungsfunktionen

    107012 Hier erhalten Sie einen Überblick über die wichtigsten VBA-Konvertierungsfunktionen von Excel. Meistens werden diese Konvertierungsfunktionen bei den jeweiligen Themengebieten erläutert....

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013