Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CheckBoxes in Schleife prüfen

CheckBoxes in Schleife prüfen
27.06.2003 20:05:07
Alex F.
Hallo Leute, habe folgendes Problem:

Habe ein Formular mit 20 CheckBoxes. Möchte nun, nachdem der Benutzer einige angeklickt hat, in einer Schleife prüfen lassen, welche CheckBox angeklickt ist (Value=True) und welche nicht.

Gibt es eine Möglichkeit, eine Reihe von CheckBoxes in einer Schleife zu prüfen (über eine Art "Objekt-Array") oder muss ich jedes einzelne CheckBox-Steuerelement einzeln prüfen?

1000 Dank für Eure Hilfe.

Alex.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: CheckBoxes in Schleife prüfen
27.06.2003 20:10:58
Georg_Zi

Hallo Alex


Ich gehe von einer Userform aus.

Gruß Hajo

Falls Code vorhanden wurde er getestet unter Betriebssystem Windows 2000 Pro und Excel Version 2003 Beta 2.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Re: CheckBoxes in Schleife prüfen
27.06.2003 20:11:58
ChrisL

Hi Alex

Dim i as Byte

For i = 1 to 20
If Controls("CheckBox" & i).Value = True Then ...
Next i

Gruss
Chris

Re: CheckBoxes in Schleife prüfen
27.06.2003 21:37:07
Alex F.

Super. Vielen Dank an Euch.

Habe zwischenzeitlich auch an einer Lösung gefriemelt.
Müsste eigentlich auch funktionieren, oder?:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 0 To 19
If UserForm1.Controls.Item(i).Value = True Then
MsgBox "Checkbox Nr. " + Str(i + 1) + " is checked"
ElseIf UserForm1.Controls.Item(i).Value = False Then
MsgBox "Checkbox Nr. " + Str(i + 1) + " is unchecked"
End If
Next i

End Sub


Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige