Gruppe
DatumZeit
Problem
In den Spalten E:F werden alle Dienstage und Donnerstage gelistet, sofern es sich nicht um einen Feiertag handelt.
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