Checkboxen zählen
10.11.2005 23:08:36
Tyler
ich suche eine Lösung zum Zählen von angeklickten Steuerelementen-Toolbox Checkboxen. Ich habe schon mehrere Internet seiten durchsucht, aber nichts Richtiges gefunden.
Hier waren 2 Ansätze:
1. Ansatz
Private Sub CommandButton1_Click()
WT = 0
Dim a As Integer
For a = 1 To 2
If CheckBox(a).Enabled = True Then
WT = WT + 1
Else
WT = WT
Next a
Range("A1").Value = WT
End Sub
Fehlermeldung bei "If Checkbox(a).Enabled ..."
2. Ansatz
Private Sub CommandButton1_Click()
WT = 0
If CheckBox1.Value = True Then
WT = WT + 1
Else
If CheckBox2.Value = True Then
WT = WT + 1
Else
WT = WT
End If
Range("A1").Value = WT
End Sub
Ausgabe ist nicht korrekt. Z.B. Wenn man nur die 2. Checkbox anklickt.
Ich bin für jede Hilfe dankbar.
Ciao,
Tyler