habe ein Problem.
Ich habe eine Textbox in der die Auftragsnummer eingetragen wird! Werden Buchstaben eingetragen, dann kommt die MsgBox, bei einer Zahl soll es durchlaufen!
Mein Makro so far, funktioniert leider nicht! Kann mir jemand helfen!
Dim KeyAscii As Integer
If txtAuftragsnr "" Then
Select Case KeyAscii
Case vbKey0 To vbKey9 ', vbKeyBack, 44 ' 44 = Komma durchlassen
Case Else
MsgBox ("Auftragsnummer: Es können nur Zahlen eingegeben werden!")
KeyAscii = 0
End Select
txtAuftragsnr = ""
txtAuftragsnr.SetFocus
Exit Sub
End If
LG Chris