Abrage ob TextBoxen leer

10/03/2011 - 19:45 von Berthold Erfkämper | Report spam
Hallo NG-Gemeinde.

Habe folgendes Problem.
Auf einer UserForm befinden sich sieben TextBoxen. Alle sollten gefüllt
werden bevor der Inhalt in eine Tabelle übernommen wird.

Gefunden habe ich folgendes:

If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or
Trim(TextBox3.Text) = "" or Then
MsgBox "Boxen Leer!"
ElseIf Trim(TextBox1.Text) = "" Then
MsgBox "Textbox1 leer!"

und so weiter

Was ich eigentlich möchte ist eine Prüfung ob und wenn ja welche TextBox
leer ist. Und dann eine entsprechende Meldung an den User zurückgeben.
Damit die TextBox gefüllt wird.

Leider habe ich aber keien Ahnung wie ich das anstellen muss.

Daher hoffe ich nun auf Eure Unterstützung.

Danke.

Berthold.
 

Lesen sie die antworten

#1 Claus Busch
10/03/2011 - 20:40 | Warnen spam
Hallo Berthold,

Am Thu, 10 Mar 2011 19:45:08 +0100 schrieb Berthold Erfkàmper:

Was ich eigentlich möchte ist eine Prüfung ob und wenn ja welche TextBox
leer ist. Und dann eine entsprechende Meldung an den User zurückgeben.
Damit die TextBox gefüllt wird.



stelle vor den Code zur Übertragung der Daten aus den Textboxen folgende
Codezeilen (eventuell noch UserForm-Name anpassen):
Dim ctr As Control

With UserForm1
For Each ctr In .Controls
If Left(ctr.Name, 4) = "Text" Then
If Len(Trim(ctr.Text)) = 0 Then
MsgBox ctr.Name & " ist leer"
Exit Sub
End If
End If
Next
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen