Sub Aktiv_Deaktiv()
 
Dim i As Long
Dim l As Long
'Loop über alle Gruppen
For i = 1 To Me.OutBar1.GroupCount
 
    Me.OutBar1.Groups(i).Enabled = Me.Check1.Value
    'Um die Items einer Gruppe ebenfalls als "Aktiv bzw. Deaktiv" zu markieren
    'diese ebenfalls enablen / disablen
    For l = 1 To Me.OutBar1.Groups(i).ItemCount
        Me.OutBar1.Groups(i).Items(l).Enabled = Me.Check1.Value
    Next l
Next
 
End Sub