ich habe in einem Frame mehrere Checkboxen. Wenn alle Checkboxen auf False stehen, möchte ich eine Prozedur starten.
Wie geht das?
Danke und liebe Grüße
Edwin
Sub Boxen_checken()
Dim oCB As MSForms.Control, bAus As Boolean
For Each oCB In UserForm1.Controls
If TypeOf oCB Is MSForms.CheckBox Then
If oCB.Value = True Then
bAus = True
Exit For
End If
End If
Next
If Not bAus Then
'Hier Deine Anweisungen für den Fall, wenn alle Boxen aus sind....
End If
End Sub