Checkboxen markieren

Forumthread: Checkboxen markieren

30.03.2015 07:49:24

puma_888

Guten Morgen zusammen :),
ich habe mehrere Checkboxen in einem Tabellenblatt integriert. Ich möchte nun beim anklicken der Checkbox1, dass die Checkboxen 2 - 25 ebenfalls mit einem Haken versehen werden. Ich habe was ähnliches schon mal auf einer Userform angewendet gehabt und da hat es mit folgendem Code funktioniert:
Dim bytZaehler As Byte
If CheckBox1 Then
For bytZaehler = 2 To 25
Me.Controls("CheckBox" & bytZaehler) = True
Next bytZaehler
ElseIf CheckBox1 = False Then
For bytZaehler = 2 To 25
Me.Controls("CheckBox" & bytZaehler) = False
Next bytZaehler
End If
Da ich jetzt aber die Checkboxen direkt im Tabellenblatt integriert habe funktioniert es nicht mehr, kann mir jemand weiter helfen was ich am Code abändern muss.
Gruß
Markus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Checkboxen markieren

30.03.2015 08:37:38

Nepumuk
AW: Checkboxen markieren

30.03.2015 08:40:15

Nepumuk
AW: Checkboxen markieren

30.03.2015 09:33:05

puma_888
AW: Checkboxen markieren

30.03.2015 08:53:42

JoWE

AW: Checkboxen markieren

30.03.2015 08:37:38

Nepumuk

Hallo,
so geht's:

Private Sub CheckBox1_Change()
    Dim lngIndex As Long
    For lngIndex = 2 To 25
        OLEObjects("CheckBox" & CStr(lngIndex)).Object.Value = _
            OLEObjects("CheckBox1").Object.Value
    Next
End Sub

Gruß
Nepumuk

AW: Checkboxen markieren

30.03.2015 08:40:15

Nepumuk

So ist's besser:

Private Sub CheckBox1_Change()
    Dim lngIndex As Long
    For lngIndex = 2 To 4
        OLEObjects("CheckBox" & CStr(lngIndex)).Object.Value = CheckBox1.Value
    Next
End Sub

AW: Checkboxen markieren

30.03.2015 09:33:05

puma_888

danke dir, es funktioniert :)
Gruß

AW: Checkboxen markieren

30.03.2015 08:53:42

JoWE

Hallo Markus,
'Checkboxen setzen und markieren

Sub testCheckboxes()
Dim chkBox As Object
'10 Checkboxen platzieren
For i = 1 To 10
With ActiveSheet.CheckBoxes.Add(Cells(i, 3).Left, _
Cells(i, 3).Top, Cells(i, 3).Width, Cells(i, 3).Height)
.Interior.ColorIndex = xlNone
.Caption = "Checkbox_" & i
End With
Next
'für alle Boxen das Häkchens etzen
For Each chkBox In ActiveSheet.CheckBoxes
chkBox = True
Next
End Sub

'alle entfernem

Sub delChkBoxes()
For i = ActiveSheet.CheckBoxes.Count To 1 Step -1
ActiveSheet.CheckBoxes.Delete
Next
End Sub

Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Forumthread: Checkboxen markieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread