Jahreskalender ...aus Archiv...funktioniert nicht
21.01.2004 09:08:50
Abdi
habe folgendes Problem:
Diese Routine habe ich mir aus den "Herber´s Excle Vorlagen" geholt...was passt daran nicht.
Die Routine ist länger...aber hier hapert´s.
Die Montate werden angelegt, sobald es an die Tage geht, kommt eine Info " Index außerhalb des gültigen Bereiches"
Ich weiß auch nicht, was es mit "Set wksMy.." auf sich hat.
Weil ich habe gar kein Blatt mit Blattnamen "Feiertage". Ersetze ich diesen Teil durch ("Januar"), dann werden mir die 12 Blätter angelegt, die Tage dazu mit Kennzeichnung von Sa u. So, und dann kommt wieder eine Fehlermeldung "400".
Kann mir jemand sagen, was ich falsch mache.
Danke
Gruß Abdi
Private Sub TageEintragen()
Dim wks As Worksheet, wksMy As Worksheet
Dim lDay As Long
Dim iMonth As Integer, iDay As Integer
Set wksMy = ThisWorkbook.Worksheets("Feiertage")
For iMonth = 1 To 12
Set wks = Worksheets(iMonth)
Application.StatusBar = "Bearbeite Monat " & wks.Name
wks.Columns(1).NumberFormat = "dd.mm.yy"
wks.Columns(2).NumberFormat = "dddd"
For lDay = DateSerial(wksMy.Range("C1").Value, iMonth, 1) To _
DateSerial(wksMy.Range("C1").Value, iMonth + 1, 0)
iDay = iDay + 1
wks.Cells(iDay, 1) = lDay
wks.Cells(iDay, 2) = lDay
If Weekday(lDay) = 7 Then
wks.Cells(iDay, 1).Interior.ColorIndex = 34
wks.Cells(iDay, 2).Interior.ColorIndex = 34
ElseIf Weekday(lDay) = 1 Then
wks.Cells(iDay, 1).Interior.ColorIndex = 35
wks.Cells(iDay, 2).Interior.ColorIndex = 35
End If
Next lDay
iDay = 0
Next iMonth
Worksheets(1).Select
ActiveWindow.Caption = "Jahreskalender " & wksMy.Range("C1").Value
End Sub