Textbox auf Inhalt prüfen

Forumthread: Textbox auf Inhalt prüfen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textbox auf Inhalt prüfen

22.04.2014 12:59:15

Jörg

Hallo,
ich wollte eine TextBox auf einen Inhalt hin prüfen (TextBox leer oder nicht) und irgendwie klappt das nicht so richtig. Vielleicht kann mir jemand hier einen Tipp geben warum es nicht klappt.
Der Code steht unten.
Gruß Jörg
Do
If IsEmpty(UserForm1.TextBox1.Text) = False Then
MsgBox "Bitte machen Sie eine Eingabe!"
UserForm1.TextBox1.SetFocus
UserForm1.Show
Else: Exit Do
End If
Loop Until IsEmpty(UserForm1.TextBox1.Text) = False

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textbox auf Inhalt prüfen

22.04.2014 13:01:16

Hajo_Zi
AW: Textbox auf Inhalt prüfen

22.04.2014 23:17:52

Jörg

AW: Textbox auf Inhalt prüfen

22.04.2014 13:01:16

Hajo_Zi

ich hätte nur geschrieben If Textbox1"" then
Gruß Hajo

AW: Textbox auf Inhalt prüfen

22.04.2014 23:17:52

Jörg

Hallo Hajo,
vielen Dank für deinen Tipp, klappt wunderbar. Ist es trotzdem möglich mit der IsEmpty Funktion zu prüfen ob eine TextBox einen Wert hat? Vielleicht ist da auch nur ein Denkfehler.
------------------------------------------------------------
Do
If IsEmpty(UserForm1.TextBox1.Text) = True Then
MsgBox "Bitte machen Sie eine Eingabe!"
UserForm1.TextBox1.SetFocus
UserForm1.Show
Else: Exit Do
End If
Loop Until IsEmpty(UserForm1.TextBox1.Text) = False
--------------------------------------------------------------
Übrigens für die Eingabe nur als String (keine reinen Zahlen erlaubt) funktioniert es.
Do
If IsNumeric(UserForm1.TextBox1.Text) = True Then
MsgBox ("Es dürfen nur Buchstaben eingegeben werden!")
UserForm1.TextBox1.SetFocus
UserForm1.TextBox1.Text = ""
UserForm1.Show
Else: Exit Do
End If
Loop Until IsNumeric(UserForm1.TextBox1.Text) = False