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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim wb As Workbook Dim sFile As String Dim Check as boolean On Error GoTo Fehler Check = Len(Textbox1.Text) = 0 Check = Check Or Len(Textbox2.Text) = 0 Check = Check Or Len(Textbox3.Text) = 0 '--- usw für alle Textboxen die befüllt werden müssen If Check Then MsgBox "Bitte alles ausfüllen", vbInformation + vbOKOnly, "Erfassung wird _ gesendet" Else

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

Hi Ewald
es gibt meisten viele Wege die zum Ziel führen, selten immer nur einen.
deine Lösung hat noch das problem, dass du nicht prüfst, ob nur Ziffern eingegeben wurden und dann bekommst du bei den CDbls einen Fehlerabbruch, wenn dort ein Buchstabe steht.
eine Prüfung ohne IsDate würde ich so aufbauen:
1. IF TB.Text Like "##:##"
Damit hast du sichergestellt, das die Länge passt der Doppelpunkt an der richtigen Stelle steht und die anderen Zeichen Ziffern sind.
jetzt muss du nur noch prüfen, ob der Wert der ersten zwei stellen nicht >23 ist und die letzen zwei Stellen nicht >59
wenn du nicht abbrichst, falls der Text schon durch die erste Prüfung gefallen ist, solltest du zum Umwandeln nicht CLNG nehmen sondern VAL.
Das erzeugt keinen Fehlerabbruch, wenn der Text nicht in eine Zahl wandelbar ist.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox wenn Textbox leer

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread