Ich habe einen Code, der jeden Freitag, der kein Feiertag ist, auflistet.
Der Code soll dahingehend geändert werden, dass er nur den 1. und den 3. Freitag eines Monats listet.
Der Code:
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) = 6 Then
If IsError(Application.Match(lDay, Columns(1), 0)) Then
iRow = iRow + 1
Cells(iRow, 6).Value = CDate(lDay)
Cells(iRow, 5).Value = Format(lDay, "dddd")
End If
End If
Next lDay
End Sub
|