Afvragen of een groepering opengevouwen is

[RaymondRombouts]

Hallo,

Ik ben bezig om in excel 2010 een planningsfile voor het werk te maken.
Dit lukt vrij aardig op 1 ding na.

Bovenin staan de spoedwerkzaamheden.
Daaronder de normale projecten.
Alle spoedwerkzaamheden zijn 1 groepering
Ieder project is een groepering.
Als ik ga sorteren via een button met vba erachter worden alle groeperingen opengevouwen.
Dit is voor de projecten geen probleem alleen de spoedwerkzaamheden moeten gesloten blijven.

Ik sluit een groepering via de onderstaande code:
Rows(7).ShowDetail = False. (Regel 7 is de eerste regel van de groepering).

Dit werkt goed, behalve als de groepering al gesloten is.
Als de groepring gesloten is en ik ga sorteren, wordt de groepering opengevouwen.
Als ik daarna nog een keer op de sorteerknop druk, wordt de groepering van de spoedpunten gesloten.
Druk ik daarna weer een keer op de sorteerknop, wordt de groepering weer opengevouwen.

Ik denk dat dit opgelost kan worden door eerst de status van de groepering af te vragen (opengevouwen of gesloten) maar ik weet niet of dit mogelijk is.

Kan iemand mij hier mee helpen???

 

[Cobbe]

Zou dit helpen?

With Rows("7:12")
    If .Rows.Group = True Then
       .Rows.Ungroup
    End If
    End With

 

[RaymondRombouts]

Hallo Cobbe,

Helaas dit heeft geen effect.
De code die ik nu al had leek er enigsinds op (maar werkte dus ookniet geheel goed):

If Rows(7).ShowDetail = True Then
Rows(7).ShowDetail = False
Else
Exit Sub
End If