CheckBoxen ansprechen mit Schleife

Guten Tag,

Was einfach aussieht artet in einem Desaster aus.

Also ich habe in einer Tabelle Checkboxen wo ich per mausklick Häkchen setzen kann.
Da ich die per VBA überwachen will versuchte ich einmal Checkboxen anzusprechen und das funktionier ja auch bestens.

Nun da es aber ca. 30 Kästchen sind wo ich automatisch prüfen will und dann über eine IF Verzweigung etwas entschieden wird, dachte ich das ich das mit einer For Schleife löse.

Trotz den Beispielen aus dem netzt springt mir das Skript nicht an.

Kann mir da vielleicht jemand weiter helfen?

Ein Grund Skript mit einer For Schleife die mir ein Kästchen nach dem anderen prüfen kann.
Die Namen der Kästchen sind ja standardmäßig vergeben und heissen Kontrollkästchen 1 usw, dieses kann ich aber auch noch ändern.

Danke für einen Vorschlag im Voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim ChBx As CheckBox For Each ChBx In ActiveSheet.CheckBoxes If ChBx.Value = 1 Then MsgBox "hallo" Worksheets("Tabelle2").CheckBoxes.ChBx.Value = 1 Else MsgBox "Leer" End If 'Debug.Print ChBx.Name, ChBx.Value Next ChBx End Sub

Hallo Fennek,

Worksheets("Tabelle2").CheckBoxes(Chbox.name).Value = 1

Ich denke das könnte gehen, an dem studiere ich auch herum, komme aber noch nicht daran es auszuprobieren.

Ja es sind zwei Tabellen mit den identischen Checkboxennamen und gleicher Anzahl Boxen.

Darum will ich sowas aufbauen, eine Prüfung, wenn in der Tabelle1 ein hacken ist, soll er in der Tabelle 2 in der selben Box auch ein Haken gemacht werden und auch wieder rückgängig gemacht werden wenn ich den Haken raus nehme.

Fühle mich wegen einem Problem das ich erkannt habe gezwungen sowas zu basteln.
Ich habe diese Boxen auf der Tabelle schon fix so verknüpft das diese miteinander korrespondieren. Da es aber vorkommt dass ich einzelne Tabellen in eine andere Arbeitsmappe einfüge, kommen dann Meldungen wegen externen Verknüpfungen. Und das ist unschön. Also muss ich diese Überwachung wohl oder übel mit reinem VBA lösen.

Es grüsst
Thomas

Sub Sync_Sh3() Dim ChBx As CheckBox For Each ChBx In Me.CheckBoxes If Not Left(ChBx.Name, 2) = "CB" Then GoTo weiter '...Wenn in CheckBox die ersten zwei Zeichen CB.... dann Sheets(2).CheckBoxes(ChBx.Name) = ChBx.Value '.......In Sheets2 CheckBox aktualisieren weiter: '...............................................Wenn in CheckBox die zwei ersten Zeichen nicht CB sind dann Schleife überspringen Next ChBx End Sub

Sub Sync_Sh3() Dim ChBx As CheckBox For Each ChBx In Me.CheckBoxes If Left(ChBx.Name, 2) = "CB" Then '...Wenn in CheckBox die ersten zwei Zeichen CB.... dann Sheets(2).CheckBoxes(ChBx.Name) = ChBx.Value '.......In Sheets2 CheckBox aktualisieren End If Next ChBx End Sub

Beliebteste Forumthreads (12 Monate)

CheckBoxen ansprechen mit Schleife

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CheckBoxen ansprechen mit Schleife

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread