Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zustand von Tabellenblatt-Checkboxes ermitteln

Gruppe

CheckBox

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?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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