Re: Laufzeitfehler 380
05.11.2002 20:34:45
Markus
Hallo zusammen,
Danke für eure reichhaltigen Tips.
Tatsächlich rufe ich folgendes auf:
Private Sub Userform_initialize()heute = Now()
heute = heute - 3
ComboBox4.RowSource = "Daten!c2:c367" 'Hier steht das Datum von 1.1.2002 - 31.12.2002
ComboBox4.Value = Format(CDate(heute), "d. MMMM YYYY")
^^^^^^^^^^^^^^^Hier ensteht der Fehler!
ComboBox5.RowSource = "Daten!c2:c367"
heute = heute + 1
ComboBox5.Value = Format(CDate(heute), "d. MMMM YYYY")
Starte ich nun mein Userform innerhalb der Entwicklungsumgebung, bekomme ich keine Fehlermeldung.
Kann mir da jemand helfen?
(Falls jemand ne bessere Idee hat, raus damit! :-)
Danke!
Gruß Markus