Schalter öffnen/schließen Gruppierung
07.08.2007 12:35:53
Tim
Brauche noch mal eure Hilfe. Ich habe folgendes Makro zur Gruppierung von diversen Zeilen:
Sub SetGroup()
Dim InI As Integer
Dim m_SheetAuswertungsblatt As Worksheet
Set m_SheetAuswertungsblatt = ActiveSheet
For InI = 23 To 235 Step 3
'Zeilen Gruppieren
m_SheetAuswertungsblatt.Rows(InI + 1 & ":" & InI + 2).Group
Next InI
Set m_SheetAuswertungsblatt = Nothing
End Sub
Nun möchte ich über einen Ein-/Ausschalter noch die gruppierten Zeilen ein/ausblenden. Sprich also Zeilen 24+25, 27+28 usw. bis 234+235
Wie kann ich das klug verbinden bzw. auch seperat ansteuern. Die Gruppierung soll erhalten bleiben. Es wäre somit quasi ein öffnen/schließen der Gruppierung.
Danke für Tipps und Hilfe!
Euer Tim