Abrage ob TextBoxen leer

[Berthold Erfkämper]

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.

[Claus Busch]

Hallo Berthold,

Post by 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

[Berthold Erfkämper]

Post by Claus Busch
Hallo Berthold,

Post by 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
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

Besten Dank.
Genau das hab ich gesucht.


Berthold.