Textbox-Change event fehlerhaft
16.10.2013 14:37:34
Albert
ich verwende diesen Code, um die numerische Eingabe in eine Textbox zu überwachen.
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) Or Right(TextBox1.Value, 1) = "+" Or Right(TextBox1.Value, 1) = _
"-" Or Left(TextBox1.Value, 1) = "+" Then
Beep 500, 100
Beep 1000, 100
Beep 1500, 100
Beep 2000, 100
Beep 3000, 100
MsgBox ("Bitte nur Ziffern eingeben!")
SendKeys "{BS}", Wait:=True
End If
With TextBox1
.MaxLength = 3
End With
End Sub
Das Problem ist, dass wenn ich die Textbox verlassen will oder Esc drücke, ebenfalls die Fehlermeldung Beep kommt.Was könnte ich anders machen?
Danke und Gruß
A.