KeyDown,KeyPress Enter Taste und Nur Zahlen
chris
könnt Ihr mir vielleicht helfen ?
Ich habe eine Textbox.In diese dürfen nur zahlen eingegeben werden:
Das Schaffe ich auch so:
Private Sub tb_Identifier_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9]" = False Then
KeyAscii = 0
End If
End Sub
Das geht nur so:
Private Sub tb_Identifier_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As _
Integer)
If KeyCode = 13 Then MsgBox ("enter")
End Sub
Vielen Dank im voraus !
gru? Chris