Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code verkürzen

Code verkürzen
14.09.2004 22:17:53
Erich
Hallo Excelprofis,
kann mir jemand den folgenden Code verkürzen,
If Me.ComboBox1.Value = "" Then
MsgBox "Alle Felder Ausfüllen!"
ComboBox1.SetFocus
Exit Sub
ElseIf Me.ComboBox2.Value = "" Then
MsgBox "Alle Felder Ausfüllen!"
ComboBox2.SetFocus
End If
...
....
Exit Sub
es handelt sich um insgesamt 90 Comboboxen
für eure hilfe wäre ich sehr dankbar
gruß
erich

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

Betreff
Datum
Anwender
Anzeige
AW: Code verkürzen
tobias
Hallo
For i = 1 To 90
If Me.Controls("ComboBox" & i).Value = "" Then
MsgBox "Alle Felder Ausfüllen!"
Me.Controls("ComboBox" & i).SetFocus
Exit For
End If
Next
Vorrausgesetzt die Comboboxen sind alle gleichmässig durchnummeriert
mfg tobias
Danke
14.09.2004 22:32:13
Erich
Danke Tobias, Danke
gruß
erich
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige