Wie muss ich die untenstehende Prozedur vereinfachen, so dass der Code für alle TextBoxen in UserForm 1 gilt, ohne die Prozedur 5 mal zu kopieren?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
Dim TMP$
Dim x%
Dim i%
For x = 45 To 45
For i = 48 To 57
TMP = TMP & Chr(x)
TMP = TMP & Chr(i)
Next i
Next x
If InStr(1, TMP, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
Dim TMP$
Dim x%
Dim i%
For x = 45 To 45
For i = 48 To 57
TMP = TMP & Chr(x)
TMP = TMP & Chr(i)
Next i
Next x
If InStr(1, TMP, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub