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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen