Ereignisprozeduren zusammenfassen
28.07.2004 14:07:06
Holger
Nach langer Zeit mal wieder was von mir: ich habe eine Userform mit vielen Textboxen drin, die ich zur Zahleneingabe verwende. Und damit ich wirklich nur Zahlen (mit Kommastelle) eintragen kann, gibt es zu jeder Textbox eine Ereignisprozedur:
Private Sub txt_box1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44
Case Else: KeyAscii = 0
End Select
End Sub
Nun ist das ziemlich viel Text im Modul. Kann man nicht ein Makro für alle Textboxen schreiben? Brauch ich dafür ein Klassenmodul? Hinter diese Problematik bin ich noch nicht gestiegen, bitte helft mir auf die Sprünge!
Gruß, Holger