Option Explicit
Public Sub test1() '// Formularboxen
Dim objCheckBox As Excel.CheckBox
For Each objCheckBox In ActiveSheet.CheckBoxes
If Not objCheckBox.Value = xlOn Then Exit For
Next
If objCheckBox Is Nothing Then _
Call MsgBox("Alle Haken gesetzt...", vbExclamation)
End Sub
Public Sub test2() '// ActiveXboxen
Dim objOLEObject As OLEObject
For Each objOLEObject In ActiveSheet.OLEObjects
If objOLEObject.progID = "Forms.CheckBox.1" Then _
If Not objOLEObject.Object.Value Then Exit For
Next
If objOLEObject Is Nothing Then _
Call MsgBox("Alle Haken gesetzt...", vbExclamation)
End Sub
Public Sub test3() '// ActiveXboxen auf Form
Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.CheckBox Then _
If Not objControl.Value Then Exit For
Next
If objControl Is Nothing Then _
Call MsgBox("Alle Haken gesetzt...", vbExclamation)
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 12