Textbox in Userform bei Eingabe Prüfen
19.11.2019 10:22:15
Rauti
Ich habe eine UserForm in dem sich mehrere Textboxen ect. für die Dateneingabe befinden. Die Textbox4 möchte ich prüfen, ob der Wert zwischen Min und Max liegt und sollte es nicht der Fall sein für Min ein Hinweis anzeigen und für Max einen anderen Hinweis. Da sich der Min Wert verändern kann soll der Code den Wert aus einer Tabellen Zelle auslesen.
Den folgenden Code habe ich geschrieben und er macht es auch ABER das Hinweisfester kommt nicht, wenn ich mit Tab aus der Textbox zur nächsten springe bzw. das nächste ist ein Optionsbutton. Gibt es eine andere Möglichkeit für den Code?
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Verhindern die Eingabe von Buchstaben
Select Case KeyAscii
' 0 - 9
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox4_exit(ByVal Cancel As MSForms.ReturnBoolean)
' Überprüfen Min und Max Werte
Dim Min As Integer
Min = Worksheets("System").Cells(8, 4).Value
If TextBox4.Value > "" And CInt(TextBox4.Value) > 200 Then
MsgBox ("Der Wert muss unter 200 liegen!")
Else
If CInt(TextBox4.Value)