dank Matthias seiner Hilfe ermittle ich mit diesem Makroteil:
Dim tbtag
tbtag = DateSerial(Year(VBA.Date), Month(VBA.Date), 0) - Weekday(DateSerial(Year(VBA.Date), Month(VBA.Date) + 2, 1), 2) + 1
MsgBox tbtag
den ersten Montag ( bzw. den letzten Montag des Vormonats) des laufenden Monats. Bisher hat dies auch super geklappt.
Der Jahreswechsel macht mir jetzt aber ein Strich durch die Rechnung. Wenn ich ihn jetzt auslöse ergibt es den 25.12.2019. Ich benötige aber den 30.12.2019 als Ausgabe. Ich benutze es für ein Kalender und dieser soll immer mit einem Montag beginnen ( so wie Outlook ). Da heute der 6.1.2019 ist wäre dann der letzte vorangegangen Montag der 30.12.2019.
Da es bis zum Jahreswechsel geklappt denke ich das es daran liegt.
Ich hoffe ich habe die so einigermaßen rüberbringen können.
Hat jemand eine Idee für mich wie ich ein Jahreswechsel berücksichtigen könnte?
Habt schon mal rechtvielen dank für euer Interesse.
mfg thomas
https://www.herber.de/bbs/user/134206.xlsm