Gruppe
Dialog
Problem
In das Tabellenblatt integrierte CheckBoxes rufe ich im VBA-Code als "OleObjects" auf. "OleObjects" hat aber keine "Value"-Eigenschaft. Wie ermittle ich den Zustand der CheckBoxes?
ClassModule: Tabelle1
Private Sub cmdChb_Click()
Dim oOle As OLEObject
For Each oOle In OLEObjects
If TypeName(oOle.Object) = "CheckBox" Then
MsgBox oOle.Name & ": " & oOle.Object.Value
End If
Next oOle
End Sub