Dim Datum As Date
Datum = Date
Datum = DateSerial(Year(Datum), Month(Datum), 1)
Datum = Datum + 8 - Weekday(Datum, 2)
MsgBox Format(Datum, "dddd dd.mm.yyyy")
Um den ersten Montag im Monat mit VBA zu finden, kannst du folgendes Makro verwenden:
Dim Datum As Date
Datum = Date
Datum = DateSerial(Year(Datum), Month(Datum), 1) ' Erster Tag des Monats
Datum = Datum + 8 - Weekday(Datum, 2) ' Berechnung des ersten Montags
MsgBox Format(Datum, "dddd dd.mm.yyyy") ' Ausgabe des DatumsALT + F11, um den VBA-Editor zu öffnen.Problem: Das Makro gibt den falschen Montag aus.
Datum = DateSerial(Year(Datum), Month(Datum), 1) muss korrekt sein.Problem: Das Ergebnis zeigt nur den ersten Montag, wenn er am ersten Tag des Monats liegt.
If Weekday(Datum, 2) <> 1 Then Datum = Datum + 8 - Weekday(Datum, 2).Du kannst den ersten Montag im Monat auch ohne VBA ermitteln. Hier ist eine Formel, die du direkt in eine Zelle eingeben kannst:
=DATUM(JAHR(A1);MONAT(A1);1) + (8 - WOCHENTAG