Problem mit Userform Calendar
15.05.2013 09:27:09
Jürgen
Ich habe hier einen sehr unangenehmen Fehler, ich hoffe ihr könnt helfen.
Dieser Code hat immer funktioniert, speziell unter Excel 2003, 2007 aber auch schon unter 2010! Nun auf einem neuen Server auf welchem Office neu installiert wurde, kommt beim öffnen der besagten Excel Datei immer der Fehler "Objekt unterstützt diese Eigenschaft oder Methode nicht" (Laufzeitfehler 438).
Hier der Code Auszug, hoffentllich habt ihr einen Tipp für mich.
---------------------------------------
Private Sub Workbook_Open()
Dim i As Single
Dim k As Integer
k = Worksheets(1).Cells(394, 27).Value
ReDim MyArray(3, k)
Worksheets(1).ComboBox1.ColumnCount = 3
Worksheets(1).ComboBox1.ColumnCount = 6
For i = 1 To k
MyArray(1, i) = Format(Now(), "yyyy")
MyArray(0, i) = "KW " & i
MyArray(2, i) = i
Next i
Worksheets(1).ComboBox1.Column() = MyArray
'Füllen Kombobox
Worksheets(1).Calendar1 = Now '-> HIER WIRD DER FEHLER GEWORFEN
Worksheets(1).Activate
End Sub
---------------------------------------
Besten Dank!
Gruß
Jürgen