ich habe in einer Userform 20 Textboxen, die nach Eingabe auf Nummerisch überprüft werden. Allerdings wird nicht in jede Textbox ein Eintrag gemacht.
Nun zur eigentlichen Frage:
Muß ich für jede Textbox die Routine:
Private Sub UserPort1_Change() ' .... bis UserPort20
If Not IsNumeric(UserPort11) Then
MsgBox "Bitte nur Nummern eintragen!"
End If
End Sub
schreiben oder gibt es eine Möglichkeit das zu Optimieren?
Beste Grüsse
Roland