Hallo,
ich möchte in einem Textfeld nur Preiseingaben ermöglichen. Außerdem soll es möglich sein das Euro Zeichen einzugeben.
Mit den Zahlen funktioniert es auch super mit folgendem Code:
Private Sub txtPreis_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Nur Preis Eingabe ermöglichen
If InStr("1234567890" & Chr$(128) & Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Sobald ich aber Alt Gr und E für das Euro Zeichen drücke wird mir "Laufzeitfehler 5" angezeigt. Scheinbar kann ich das nicht so einfach mit
Chr$(128)abfragen. Hat jmd eine Idee?
Vielen Dank
|