Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1756to1760
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 dynamsich abfragen

Checkboxen dynamsich abfragen
11.05.2020 08:42:58
Tim
Moin,
ich hätte eine Frage zu dem Thema Checkboxen. Wir haben ein Formular angelegt, bei dem der Nutzer entsprechende Checkboxen anhaken kann.
Diese Checkboxen heißen hier zum Beispiel S2, S3, S4 ... bis S26.
Wir haben Druck-Buttons erstellt, die nur aktiviert werden, wenn bestimmte Checkboxen aktiviert sind. Das Ganze fragen wir mit einer if-Schleife ab.
Als Beispiel:
If S2.Value = False Then Aktivierung = 0
If S3.Value = False Then Aktivierung = 0
.... bis letztendlich 'If S26.Value = False Then Aktivierung = 0
Das sind 25 Zeilen Code (es sind insgesamt sogar 11 Buchstaben a 25). Wir würden unseren Code gerne etwas optimieren und haben uns überlegt, die Prüfungsabfrage in Form einer Schleife durchlaufen zu lassen, z.B. mittels einer for-Schleife.
Also z.B.
Dim i As Integer
For i = 2 to 26
If ("S" & i).Value = False Then Aktivierung = 0
Next
Funktioniert nicht, weil keine Objektzuweisung vorhanden ist ("Objekt erforderlich").
Hat jemand eine Idee, wie man das einigermaßen dezent prüfen kann? Danke im Voraus!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen dynamsich abfragen
11.05.2020 08:50:07
Werner
Hallo,
was meinst du hiermit? Wir haben ein Formular angelegt
Eine Userform? Oder sind die Checkboxen auf einem Tabellenblatt?
Gruß Werner
AW: Checkboxen dynamsich abfragen
11.05.2020 09:03:41
Tim
Hey Werner, ne tatsächlich als UserForm.
Checkboxen dynamsich abfragen
11.05.2020 08:51:43
Beverly
Hi Tim,
einfach noch Controls davorsetzen und die Schleife dann bei erfüllter Bedingung verlassen:
If Controls("S" & i).Value = False Then
Aktivierung = 0
Exit For
End If
Wenn die Bedingung einmal erfüllt ist, muss sie dann ja nicht noch weitere Male erfüllt werden - das beschleunigt den Code.

GrußformelBeverly's Excel - Inn
Anzeige
AW: Checkboxen dynamsich abfragen
11.05.2020 09:06:23
Tim
Hey Beverly,
tausend Dank! Das hat funktioniert! :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige