Tage auflisten ohne Sa, So und ohne Feiertage
04.12.2008 09:30:17
Dirk
Ich habe ein Problem und hoffe nun auf eure Hilfe!
Ich muß alle Tage in einem Kalenderjahr auflisten (z.B.: in Spalte A). Das Jahr gebe ich in der Zelle A4 an.
Jetzt kommt mein Problem:
Die Auflistung muß ohne Samstage, Sonntage und ohne die Feiertage von RLP erfolgen.
Ich habe auch schon folgenden Code zur Auflistung ohne Sa und So gefunden.
Private Sub CommandButton1_Click()
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
datStart = DateSerial(Val(Cells(1, 4)), 1, 1)
datEnd = DateSerial(Val(Cells(1, 4)), 12, 31)
For lDay = datStart To datEnd
If Weekday(lDay, 2)
Das funktioniert auch schon super.
Allerdings weiß ich nicht, wie ich es schaffe, dass die Feiertage nicht aufgelistet werden.
Ich hoffe auf eure Hilfe!!!!