Textfeld in Form mit nur Zahlen
20.03.2019 10:24:11
Martin
hab wiedermal eine Frage.
ich starte ein Formular in dem es ein Textfeld gibt. Dort dürfen nur 8 Zahlen geschrieben werden. Es müssen auch genau die 8 Zahlen sein.
Wenn ich mit Enter/Tab/Space bestätige und es genau 8 Zahlen sind, soll mein Code ausgeführt werden.
Prinzipiell hab ich das auch fast geschafft.
Das Problem ist nun, dass es sein kann, dass die Zahl aus einem anderen Programm kopiert wurde und in das Feld eingefügt werden soll. Ich scheitere nun am Strg+V (Rechte Maustaste einfügen wäre cool, muss aber nicht sein)
Ein weiteres Problem ist auch, dass die kopierte Zahl einen Punkt beinhalten kann wie z.B.: 1234.5678
Dieser Punkt darf nicht in das Textfeld übertragen werden.
Mein Code sieht im Moment so aus:
Private Sub txfNummer_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 48 To 57, 96 To 105
Case vbKeyTab, vbKeyReturn, vbKeySpace
KeyCode = 0
MsgBox (txfNummer.Value)
' Makro wird ausgeführt
Case Else
KeyCode = 0
End Select
End Sub
Danke schonmal im Voraus!
Martin