Zur späten Zeit noch eine Kleinigkeit. (?)
Ich habe einige UserForms die ein Datum-Feld enthalten. Um dieses zu füllen benutze
ich einen Behelfs-Kalender den ich hier gefunden habe. Der Kalender öffnet sich natürlich wieder in einer neuen UserForm.
Funktioniert problemlos. Zum übertragen des Datums von einem UserForm zum anderen benutze ich diesen Code:
Private Sub DatumSetzen_Click()
EinserForm.neu7.Text = CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
Unload Me
End Sub
Jetzt die Frage:
Da dieser Code ja nur in "EinserForm" überträgt, brauch ich für jedes UserForm mit Datumsfeld ein eigenes KalenderForm.
Kann man meinem Code so verändern, das immer in das gerade geöffnete Userform
übertragen wird, ohne das man es mit Namen anreden muß?
Dann könnten alle UserForms immer den gleichen Kalender verwenden.
Nächtliche Grüße
Chris