ich habe mehrere Checkboxen auf einem Tabellenblatt.
Ich möchte alle Checkboxen durchlaufen und feststellen welche auf True gesetzt sind.
Gibt es eine Möglichkeit ( evtl. For Each ) dies per Code zu prüfen ?
Danke
Sub ttt()
'Anzeige Werte der Checkboxen aus Steuerelement-Toolbox
Dim cbx As Object
For Each cbx In ActiveSheet.OLEObjects
If cbx.progID = "Forms.CheckBox.1" Then
MsgBox cbx.Object.Value
End If
Next
End Sub
Sub fff()
'Anzeige Werte der Checkboxen aus Formular-Symbolleiste
Dim cbx As Object
For Each cbx In ActiveSheet.CheckBoxes
MsgBox cbx.Value
Next
End Sub
Gruß, NoNet
dass das Checkboxen aus der Steuerelement-Toolbox sind
weil er Checkbox und nicht Kontrollkästchen geschrieben hat.
Ich kann keinen Fehler produzieren, egal wieviele und welche Shapes ich zusätzlich habe.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub tt()
Dim cbx As Shape
For Each cbx In ActiveSheet.Shapes
If cbx.OLEFormat.progID = "Forms.CheckBox.1" Then
MsgBox cbx.OLEFormat.Object.Object.Value
End If
Next
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe