Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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!
Anzeige

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! :)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige