Kompilierungsproblem mit Date
13.10.2004 10:57:11
Walter
ich habe ein Makro mit dem, meiner Ansicht nach, feststehenden Begriff "Date". Jedes Mal, wenn ich das Makro starte gibt Excel eine Fehlermeldung aus (Fehler beim Kompilieren / Projekt oder Bibliothek nicht gefunden). Woran liegt das?
Das Makro sieht folgendermaßen aus:
Private Sub UserForm_Initialize()
ComboBox1.Tag = "1"
' 'Startposition linksoben:
' Me.StartUpPosition = 0
' Tage in Combobox1 eintragen, aktueller Monat:
For InI = 1 To Day(CDate("01." & Month(Date) + 1 & "." & Year(Date)) - 1)
ComboBox1.AddItem InI
Next InI
' Monate in Combobox2 eintragen:
For InI = 1 To 12
ComboBox2.AddItem Format(DateSerial(1900, InI, 1), "MMMM")
Next InI
' Jahre in Combobox3 eintragen:
For InI = 1900 To Year(Date)
ComboBox3.AddItem InI
Next InI
' Aktuelles Datum als Startwerte setzen:
ComboBox1.Value = Day(Date)
ComboBox2.Value = Format(Date, "MMMM")
ComboBox3.Value = Year(Date)
' Liste verlängern:
ComboBox1.ListRows = 16
ComboBox1.Tag = ""
End Sub
Bitte HELFT mir!
Gruß
Walter