Das hab ich dir doch bereits geschrieben. Sowas mach man mit einer If-Bedingung. Wo du diese einbaust bleibt dir überlassen. Du kannst sie z.B. an den Anfang von CommandButton1_Click einbauen. Dann erfolgt die Prüfung erst wenn du auf den Commandbutton klickst. Das hat den Vorteil, dass du so alle Felder im Formular auf einmal prüfen kannst.
Private Sub CommandButton1_Click()
If TextBox1 < 4 Then
MsgBox "Bitte geben sie in Feld1 einen Wert größer 3 ein"
Exit Sub
End If
With Sheets("Tabelle1")
zei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & zei).Value = TextBox1.Value
.Range("B" & zei).Value = TextBox2.Value
.Range("D" & zei).Value = TextBox3.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
Oder du fügst den Code z.B. im AfterUpdate-Ereignis deiner Textbox ein. Das hat wiederum den Vorteil, dass bereits während der Eingabe auf Gültigkeit geprüft wird. In dem Fall musst du aber für jede Textbox eine eigene Prüfung machen. Was wiederum nachteilig für den Code ist.
Private Sub TextBox1_AfterUpdate()
If TextBox1 < 4 And TextBox1 <> "" Then
MsgBox "Bitte geben sie in Feld1 einen Wert größer 3 ein"
TextBox1 = ""
End If
End Sub
Du siehst es gibt viele Möglichkeiten das aufzubauen. Du musst nur halt genau wissen, was du eigentlich willst.
Gruß Mr. K.
|