ich möchte in allen Textfeldern, die ich in einem Formular habe, nur Komma und Zahlen von 0-9 zulassen. Zu diesem Zweck verwende ich für jedes Textfeld diesen Code:
Private Sub txtTein1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44, 45, 48 To 57 'nur Komma und Zahlen 0-9
Case Else
KeyAscii = 0
End Select
End Sub
Funktioniert einwandfrei.
Dennoch habe ich gehofft, es gibt die Möglichkeit diesen Befehl allen Textfelder innerhalb des Formulars auf einmal zuzuordnen. Also das ich nur einmalig den Code verwende und er sich auf alle Textfelder in dem Formular auswirkt. Geht sowas?
(Ich kann natürlich den Code in ein Modul schreiben, aber dann muss ich dennoch in jedem Textfeld sagen "Call Modul()". Das möchte ich vermeiden.)
Danke schon mal.
Gruß.
Matthias M.