Ein Makro für 8 Textfelder
25.12.2004 11:35:40
Fritz
Erst mal schöne Weihnachten.
Ich nutze ein Makro, welches bei der Eingabe in Textfelder das im Format ddmmyy eingegebene Datum mit dem Change-Ereignis in ein richtiges Datum umwandelt. Im Code wird das maßgebliche Textfeld mehrfach angesprochen. Ich benötige dieses Makro für insgesamt 10 Datums-Textfelder.
Wie kann ich das Makro so "generalisieren", dass ich in die Textfelder unter
Private Sub Textbox1_Change()
DatumUmwandeln
End Sub
schreiben kann?
vielleicht so?
Dim TB As String
set TB = ? Aktive Textbox
für Nachhilfe wäre ich wieder sehr dankbar.
Danke, Fritz