Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jahreskalender ...aus Archiv...funktioniert nicht

Jahreskalender ...aus Archiv...funktioniert nicht
21.01.2004 09:08:50
Abdi
Guten Morgen allerseits,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jahreskalender ...aus Archiv...funktioniert nicht
24.01.2004 22:20:59
Klaus-Dieter
Hallo Abdi,
wenn du mindestens 12 Tabellenblätter in deiner Arbeitsmappe hast, und auf dem Tabellenblatt "Feiertage" in Zelle C1 ein Kalenderjahr (z.B. 2004) eingetragen ist, dann funktioniert das Makro.

Gruß Klaus-Dieter

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige