TextBox überprüfen
02.02.2006 13:40:30
Andreas
ich hab eine UserForm, in die ich verschiedene Sachen eingeben kann. Am Ende hab ich noch einen Button1, und wenn der geklickt wird, soll eine Überprüfung der TextBox2 erfolgen, in welcher nur Zahlen (auch Dezimalzahlen wie 12,33) stehen dürfen.
Falls etwas anderes in die Textbox2 geschrieben wurde wie "haus" muss es eine Fehlermeldung geben.
Ich hab auch schon folgendes versucht:
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Not Chr(KeyCode) Like "[0-9]" Then
KeyCode = 0
Else
MsgBox "Nur Zahlen!"
End If
End Sub
Aber das funktioniert nicht wie ich das will, denn erstens werden nur Zahlen zugelassen und keine Kommas und zweitens wird da die Überprüfung jeder einzelnen Ziffer vorgenommen und so möchte ich das ja auch nicht.
Kann mir jemand einen besseren Vorschlag machen?
Vielen Dank.
Gruss
Andreas