bei Eingabe der Startzahl wir die erste Zahl in der Textbox "txtKD_NK_Anzeige2" nicht dagestellt.
Wie kann ich dies ändern?
Danke!
Gruß
Lisa
https://www.herber.de/bbs/user/130377.xlsm
Public Function funcMobil(objTextBox As MSForms.TextBox, intKeyNumber As Integer) As Integer
Select Case intKeyNumber
Case 32, 43, 45, 47, 48 To 57: funcMobil = intKeyNumber
Case Else: funcMobil = 0
lMsg = MsgBox("Im Feld " & vbLf & "Mobil _
" & vbLf & _
"Trennzeichen '/ ' " & " '-' " & " " & " '+' " & vbLf & "und Leerzeichen" & vbLf & _
"erlaubt...", vbOKOnly + vbCritical, "Fehler: Eingabe Mobil...")
End Select
End Function
Danke trotzdem!Private Sub txtTextbox_KeyPress(ByVal intKeyASc As MSForms.ReturnInteger) 'Prüfen _
Zahleneingaben
Select Case txtTextbox.Name
Case "txtKD_AZ_NK"
intKeyASc = funcNK(txtTextbox, CInt(intKeyASc))
If txtTextbox.Tag "" Then Run txtTextbox.Tag