Office: Kontrollkästchen mit VBA ansprechen

Hab mal wieder ein Problem, für dessen Lösung ich eure Hilfe brauche:

Ich erstelle in Abhängigkeit von der Anzahl der Tabellenblätter einer Arbeitsmappe eine bestimmte Anzahl von Kontrollkästchen. Weiterhin lese ich aus der Zelle "BK1" eines jeden Tabellenblattes den Wert aus und beschrifte die einzelnen Kontrollkästchen mit eben diesem Wert der Zelle "BK1". Klappt mit untem stehenden Code soweit super.

Sub CheckBox_erstellen()

Dim ChckBx As Object
Dim Wiederholungen As Integer, Zeile As Integer
Dim Staffel As String

For Wiederholungen = 1 To Sheets.Count - 1
Staffel = Sheets(Wiederholungen + 1).Range("BK1").Value

Set ChckBx = ActiveSheet.CheckBoxes.Add(1340, 35 + (25.5 * Wiederholungen), 100, 20)
With ChckBx
.Value = xlOff
.Caption = Staffel
End With
Next
End Sub

Zu einem späteren Zeitpunkt möchte ich die einzelnen Kontrollkästchen anhand ihrer Beschriftung ansprechen und auslesen, ob sie den Wert "True" oder "False" (bzw. 1 oder 0) haben. Das bekomme ich aber nicht hin. Nutze wie ihr seht ".Caption" zur Beschriftung der Kontrollkästchen. Ich vermute, dass ich damit aber nicht den Namen der Kontrollkästchen ändere und sie damit auch nicht ansprechen kann.

Mit dem folgenden Code hatte ich keinen Erfolg:

If ActiveSheet.Shapes(Staffel).DrawingObject.Value = 1 Then ....

Hat jemand eine Idee?
Grüße aus Hamburch,
Sebi

:)

 

Hallo Sebi,

Du hast ganz recht : Mit Deinem code wird die Checkbox lediglich beschriftet, jedoch nicht benannt. Du könntest die Checkboxen zusätzlich mit dem Namen des Tabellenblattes benennen :

VBA-Code:

Sub CheckBox_erstellen()     Dim ChckBx As Object     Dim Wiederholungen As Integer, Zeile As Integer     Dim Staffel As String     For Wiederholungen = 1 To Sheets.Count - 1         Staffel = Sheets(Wiederholungen + 1).Range("BK1").Value         Set ChckBx = ActiveSheet.CheckBoxes.Add(340, 35 + (25.5 * Wiederholungen), 100, 20)         With ChckBx             .Name = "Chk" & Replace(Sheets(Wiederholungen).Name, " ", "_")             .Value = xlOff             .Caption = "XYZ " & Staffel         End With     Next End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Leerzeichen im Tabellenblattnamen hab ich hier durch _ ersetzt !
Die Checkboxen kannst Du nun über ihren Namen referenzieren, z.B. so :

Activesheet.Checkboxes("ChkTabelle2").Value=True

 

Hallo NoNet!

Das hört sich doch vielversprechend an! Werde leider erst in 2 Tagen wieder Zugriff auf die Excel-Datei haben. Gebe dir dann aber sofort ein Feedback, ob es funktioniert.

Vielen Dank erstmal für deine schnelle Hilfe!

Grüße,
Sebi

 

Hallo NoNet,

hatte jetzt Gelegenheit, deinen Vorschlag auszuprobieren und es funktioniert. Danke nochmal für deine Hilfe!

Gruß,
Sebi_HH

P.S.: Sorry für die späte Rückmeldung.