Excel2003 neu aufgesetzt
Heinz
Habe einen neuen PC gekauft. Meine alte Excel Vers.2003 raufgespielt.
Nun bekomme ich aber bei eine Arbeitsmappe in
With ThisWorkbook.Worksheets(vMonat(Month(Date)))
bei "Date" die Fehlermeldung "Projekt o. Bibliothek nicht gefunden.
Ebenso bei
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Set sh = ActiveSheet
For Each v In sh.Range("C1:AG1")
On Error GoTo skip_Error
If v "" Then
ComboBox1.AddItem v
End If
skip_Error:
On Error GoTo 0
Next
If Month(ActiveSheet.Range("a1").Value) = Month(Date) Then
ComboBox1.ListIndex = Day(Date) - 1
End If
Set sh = ActiveSheet
For v = 1 To 3
ComboBox2.AddItem v
Next
Application.EnableEvents = True
End Sub
bei "sh ="
Was muß ich noch installieren ? Habe auch Acess installiert.
Könnte mir bitte jemand helfen ?
Gruß
Heinz