Überprüfen, ob ein auf Arbeitsblättern basierendes Kontrollkästchen aktiviert ist
Ich versuche mit einer IF-Klausel festzustellen, ob mein Kontrollkästchen mit dem Namen "Kontrollkästchen 1" für die weitere Verwendung in meinem Programm aktiviert ist oder nicht.
Mein aktueller Code:
Sub Button167_Click()
If ActiveSheet.Shapes("Check Box 1") = True Then
Range("Y12").Value = 1
Else
Range("Y12").Value = 0
End If
End Sub
Das scheint nicht zu funktionieren, aber das Debug sagt mir, dass es ein Problem mit dem gibt
ActiveSheet.Shapes("Check Box 1")
Ich weiß jedoch, dass dieser Code funktioniert (obwohl er einem anderen Zweck dient):
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn
BEARBEITEN: Wenn weitere Informationen erforderlich sind, befinden sich meine Kontrollkästchen (auf meiner Seite befinden sich 200) in Blatt 1 mit dem Namen "Demande". Und jedes Kontrollkästchen hat den gleichen formatierten Namen wie "Kontrollkästchen ...".
Alle Hilfe wäre dankbar. Vielen Dank