Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Code verkürzen

Betrifft: Code verkürzen von: Erich
Geschrieben am: 14.09.2004 22:17:53

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

  


Betrifft: AW: Code verkürzen von: tobias
Geschrieben am: 14.09.2004 22:27:12

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


  


Betrifft: Danke von: Erich
Geschrieben am: 14.09.2004 22:32:13

Danke Tobias, Danke

gruß
erich