Re: Checkboxen in Schleife abfragen
18.06.2003 19:56:06
Peter
Hallo Hajo!Aus Frust muß ich wohl die Anrede vergessen haben, Asche auf mein Haupt.
Danke für deine Antwort!
Nur die Konstrukte mit den vielen Einzel-Abfragen über die If-Bedingungen wollte ich ja gerade vermeiden. Darüber kann ich die Checkboxen auch ohne Schleife abfragen.
Du hast mir aber mit der Variablen-Handhabung den richtigen Weg gewiesen: (Klappt jetzt ganz hervoragend!)
Sub CommandButton1_Click()
Dim cb As Control
Dim I%
Dim S$
I = 1
For Each cb In Me.Controls
S = "CheckBox" & I
If cb.Name = S And cb.Value = True Then
MsgBox ("Checkbox" & I & " ist an!")
End If
I = I + 1
Next cb
End Sub
Gruß
Peter