Gruppe
DatumZeit
Bereich
Liste
Thema
Bestimmte Wochentage ohne Feiertage listen
Problem
In den Spalten E:F werden alle Dienstage und Donnerstage gelistet, sofern es sich nicht um einen Feiertag handelt.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub Anlegen()
Dim vDay As Variant
Dim iRow As Integer, lDay As Long
For lDay = DateSerial(Range("C1").Value, 1, 1) To DateSerial(Range("C1").Value, 12, 31)
If Weekday(lDay) = 3 Or Weekday(lDay) = 5 Then
If IsError(Application.Match(lDay, Columns(1), 0)) Then
iRow = iRow + 1
Cells(iRow, 5).Value = CDate(lDay)
Cells(iRow, 6).Value = Format(lDay, "ddd")
End If
End If
Next lDay
End Sub