ich möchte in einer Userform prüfen ob mindestens 3 Kontrollkästchen angekreuzt wurden.
Dazu habe ichmir folgenden Code geschrieben. Leider werden die Objekte aber nicht erkannt.
Kann mir jemand einen Tip geben was ich da falsch mache?
MfG René
Private Sub CommandButton1_Click()
Dim obj As OLEObject 'variablen deklarieren
Dim i As Long
For Each obj In UserForm2.OLEObjects 'Für alle "Ole Objekte" in der auflistung aller ole _
objekte im tabellenblatt 1
If obj.progID Like "Forms.CheckBox*" Then 'prüfen ob es sich um eine checkbox handelt
If obj.Object.Value = True Then 'prüfen ob die checkbox angekreuzt ist
i = i + 1 'wenn angekreuzt, dann zählen.
End If
End If
Next obj 'weiter zum nächsten ole objekt in der auflistung
If i = "3" Then
MsgBox "Anzahl der angekreuzten Checkboxen: " & i 'ausgabe
End If
End Sub