Gruppierung auf- und zuklappen
Steffen Sandig
ich suche einen Befehl, um mittels VBA gruppierte Zeilen auf- und
zuzuklappen. Wer weiß Rat?
Gruß Steffen
Philipp von Wartburg
Hallo Steffen
Für das Ein- und Ausblenden von ganzen Ebenen gibt's die
ShowLevels-Methode. Der Effekt ist der gleiche wie bei Klicken
auf eine im Gliederungsbereich angezeigte Ebenenschaltfläche
(die mit den Zahlen 1 bis ...).
Zeilen (Beispiel Ebene 2):
ActiveSheet.Outline.ShowLevels RowLevels:=2
- oder -
ActiveSheet.Outline.ShowLevels 2
Spalten (Beispiel Ebene 3):
ActiveSheet.Outline.ShowLevels ColumnLevels:=3
- oder -
ActiveSheet.Outline.ShowLevels , 3
Bei einzelnen Gruppen wird's schwieriger, weil es keine VBA-
Methode gibt. Hier hilft aber ein Excel4-Makro mit der
SHOW.DETAIL-Funktion.
Syntax:
SHOW.DETAIL(a,b,c[,d[,e]])
a = 1 oder 2: 1=Zeile, 2=Spalte
In der Dokumentation steht,
b = Zeilen- bzw. Spaltennummer der Gruppierung
c = True oder False: True=Einblenden, False=Ausblenden
d = Wird nur bei Pivot-Tabellen verwendet.
e = Irrtümlich vom Makro-Recorder generierter Parameter.
Der Makro-Recorder erzeugt während der Makroaufzeichnung
einen fünften Parameter, den es eigentlich gar nicht gibt und
auch nicht verwendet werden darf.
da nicht stehen darf, gar nicht existiert
Beispiele:
Details von gruppierten Zeilen einblenden:
ExecuteExcel4Macro "SHOW.DETAIL(1,19,True)"
Details von gruppierten Zeilen ausblenden:
ExecuteExcel4Macro "SHOW.DETAIL(1,19,False)"
Details von gruppierten Spalten einblenden:
ExecuteExcel4Macro "SHOW.DETAIL(2,5,True)"
Details von gruppierten Spalten ausblenden:
ExecuteExcel4Macro "SHOW.DETAIL(2,5,False)"
Steffen Sandig schrieb in Nachricht ...