Kontrollkästchen
01.03.2013 11:29:09
marioS
habe schon gesucht, aber nichts passendes gefunden..deshalb meine Frage
Ich habe in einem Blatt 8 Kontrollkästchen (mit Formulart erzeugt) und habe dies mit umbenannt. (chbx_1, chbx_2 .... chbx_8)
Ich möchte gerne in einem Modul abfragen, ob die Häkchen gesetzt sind.
Sub Liste()
With Sheets("Liste")
For i = 1 To 8
If .Shapes("chbx_" & i).Value = True Then Exit Sub
Next i
End With
End Sub
In der Zeile "If ...." erhalte ich eine Fehlermeldung.
Was mache ich falsch ?
Danke schonmal vorab
& Gruß, marioS
Anzeige