TextBox1_Exit prüft ob Zahl zw. 20-99
21.01.2021 12:19:33
Michael
ich möchte gern beim verlassen einer Textbox prüfen
ob eine Zahl zwischen 5 und 90 liegt. Dabei soll auch
akzeptiert werden wenn voran eine Null steht z.B. 05,06,07
aber auch 8, 9 also keine Null voran.
Die Prüfung ob grundsätzlich eine Zahl drin steht passt schon mal:
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox14
If Not IsNumeric(.Text) Then
Call MsgBox("Kein erlaubter Wert.", vbExclamation, "Achtung!")
.SelStart = 0
.SelLength = .TextLength
Cancel = True
End If
End With
End Sub
Hat jemand eine Lösung für mich?
Besten Dank im voraus!
Gruß Michael
Anzeige