Supportnet / Forum / Skripte(PHP,ASP,Perl...)
ascii in einer eigenen sub mit VBA???
Frage
Hallo,
ich möchte in einer Textbox nur Zahlen zulassen, funktioniert bis dahin.
Aber um den Code übersichtlicht zu machen möchte ich die ASCII berechnung in einen eigenen Sub aufteilen. Kann mir jemand weiterhelfen??
Hier mein code:
(in Userform)
Private Sub TextBox1_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
Text.teste (keyascii)
End Sub
(in Modul)
Public Sub teste(keyascii)
If keyascii < Asc("0") Or keyascii > Asc("9") Then
keyascii = 0
End If
End Sub