MsgBox wenn Textbox leer

Guten Abend,
ich hoffe ihr könnt mir helfen. Ich habe eine Userform erstellt/abgeändert in der 7 Textboxen gefüllt werden müssen. Da ich mich einer Vorlage aus diesem Forum bedient habe und meine Kenntnisse gering sind habe ich eine Frage. Es sollen alle Textboxen darauf geprüft werden, das sie zu mindest nicht leer sind. In der Vorlage funktioniert das nur für die 1 Textbox. An welcher? stelle muss ich was? einfügen damit auch die anderen Textboxen geprüft werden. Der Text der MsgBox "Bitte Mitarbeiternummer eingeben" soll allerdings für jede zu prüfende Textbox anders sein.
Ggf könnte man auch nur einmal prüfen, ob alle Textboxen "Nicht leer" sind und nur einmal die Meldung bringen das noch Daten fehlen. Weiß nicht was einfacher geht.
(bitte auch angeben wo ich die Änderung einfügen muss
Der Code sieht bislang so aus.

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim sFile As String
On Error GoTo Fehler
If Me.TextBox1 = "" Then
MsgBox "Bitte Mitarbeiternummer eingeben", vbInformation + vbOKOnly, "Erfassung wird  _
gesendet"
Else
Me.Label10.Visible = True
Me.Repaint
Application.ScreenUpdating = False
Application.StatusBar = "Daten wurden gesendet"
'sFile_Kundenliste - wird im Modul "DieseArbeitsmappe" der Wert zugewiesen
Set wb = Application.Workbooks.Open(Filename:=sFile_Kundenliste)
With wb.Worksheets("Kundenliste")
With .Cells(.Rows.Count, 1).End(xlUp)
.Offset(1, 0) = TextBox1
.Offset(1, 4) = TextBox2
.Offset(1, 5) = TextBox3
.Offset(1, 7) = TextBox4
.Offset(1, 3) = TextBox8
.Offset(1, 12) = ComboBox1
.Offset(1, 13) = TextBox9
.Offset(1, 2) = TextBox10
.Offset(1, 14) = TextBox11
End With
End With
wb.Save
wb.Close
'Neuen Namen in Auswahlliste ergänzen
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End If
Err.Clear
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Ich Danke für Eure Hilfe

Hallo Andre,
hier einmal ein Beispiel für TextBox2 (Uhrzeit)

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Check As Boolean
Dim a As String
a = TextBox2.Text
On Error Resume Next
If a = "" Then Check = True
If Len(a)  5 Then Check = True
If CDbl(Left(a, 2)) > 23 Then Check = True
If CDbl(Right(a, 2)) > 59 Then Check = True
If Mid(a, 3, 1)  ":" Then Check = True
If Check = True Then
Cancel = True
MsgBox "Eingabe falsch, Uhrzeit im Format hh:mm eingeben"
End If
Check = False
End Sub

Es wird überprüft:
Textbox leer,Länge des Textes,die ersten zwei Ziffern nicht >23 (h), die letzten 2 Ziffernnicht >59 (m), Doppelpunkt vorhanden.
Ist ein Fehler vorhanden, kommt die Meldung und die Textbox wird bei TAB nicht verlassen.
Ist die Eingabe OK wird bei TAB die nächste Textbox aktiviert.
Da die Prüfung direkt nach Verlassen der Textbox durchgeführt wird, ist eine Überprüfung über alle Textboxen nicht nötig.
Es ist zwar etwas mehr Code,weil es ja für jede Textbox gemacht werden muß, hat aber den Vorteil das du für jede Textbox eine andere Meldung ausgeben kannst und bei Fehleingabe man nicht einfach per TAB die nächste Textbox anwählen kann.
@Daniel, damit dürfte auch deine Frage beantwortet sein.
Gruß Ewald

Forumthread: MsgBox wenn Textbox leer

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

MsgBox bei leeren Textboxen in Excel UserForms

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)