Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Checkboxen markieren

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
Anzeige
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

Anzeige
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

Anzeige
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige