Gruppierung via VBA steuern - Doppelklick
10.08.2015 14:49:14
Rudolf
ich habe schon des Öfteren hier nach Lösungen für diverse Probleme mit Excel gesucht und bin meistens fündig geworden, ich finde es echt klasse dass so viele engagierte Mitglieder hier ihr Wissen teilen! Respekt! :-D
Nun habe ich wieder eine kleine Schwierigkeit mit Excel und hoffe ihr könnt mir dabei behilflich sein. Ich habe auf meinem Tabellenblatt eine Art Baumstruktur mit 4 Ebenen aufgebaut und durch die Gruppieren-Funktion geordnet. Auf- und Zuklappen mit den + und - Buttons auf der linken Bildschirmseite funktioniert einwandfrei.
Jetzt möchte ich noch einen Schritt weiter gehen und das Ganze mittels VBA durch Doppelklicks auf die jeweilige Klasse des Strukturbaums öffnen und schließen lassen.
Ich habe bereits einen Code der das Aufklappen einwandfrei erledigt:
Sub HideUnhideGroup(iRow As Integer)
Dim strExecute As String
strExecute = "Show.Detail(1," & iRow + 1 & ",True)"
ExecuteExcel4Macro strExecute
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call HideUnhideGroup(Target.Row)
End Sub
Auch das Zuklappen an sich funktioniert ja durch das Austauschen von "True" durch "False" innerhalb der Show.Detail-Funktion bestens.
Nun soll es aber so sein, dass geschlossene Gruppierungen durch einen Doppelklick auf die Zelle in der die Klasse steht geöffnet und bereits geöffnete Gruppierungen durch einen Doppelklick auf die selbe Stelle geschlossen werden.
Nach meiner Logik bräuchte ich dafür ja irgend einen Wert, den ich mittels IF dazu verwenden kann, um die richtige Variante der Show.Detail auszuwählen. So eine Art Abfrage, ob die Gruppierung geöffnet oder geschlossen ist(?)
Ich hoffe mein Anliegen ist verständlich, falls nicht versuche ich natürlich alles um es besser zu beschreiben :-)
Ich hoffe jemand kann mir dabei helfen und bedanke mich schon mal im Voraus für die Mühe!
Viele Grüße
Rudi
Anzeige