Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Checkboxen in Schleife abfragen

Checkboxen in Schleife abfragen
18.06.2003 17:30:06
Peter
Hier mal 'ne Frage an alle Objekt-Variablen-Spezialisten:

Ich habe in einer Userform fünf Checkboxen: CheckBox1 bis CheckBox5. Wie kann ich diese in einer Schleife abfragen? Ich dachte so nach dem Motto: CB = "Checkbox"&Zählvariable
wobei CB als objekt dimensioniert wird

Wie schaffe ich es, damit aus einem String, bzw. einer Stringvariablen ein Objekt wird?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Checkboxen in Schleife abfragen
18.06.2003 17:35:04
Georg_Zi

Hallo Peter

ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.


Ein Vorschlag wäre folgender Code

Oder Klassenprogrammierung.

Gruß Hajo

Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel


Anzeige
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




Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige