Datum von Montagen untereinander
19.02.2021 21:12:46
Montagen
ich möchte per VBA das jeweilige Datum des Montags untereinander auflisten.
Untenstehendes Makro listet mir in den ersten zwei Zeilen die korrekten Werte auf, jedoch wiederholt sich der 22.02.2021 fünf mal.
Was muss ich ändern, damit das jeweils vorherige Datum als Ausgangsdatum für die Berechnung berücksichtigt wird? Als Ergebnis daher:
19.02.2021
22.02.2021
01.03.2021 etc
Sub x()
ActiveSheet.Range("A:A").ClearContents
ActiveSheet.Cells(1, 1).Value = Date
For i = 2 To 5
b = ActiveSheet.Cells(1, 1) - Weekday(ActiveSheet.Cells(1, 1), 3) + 7
ActiveSheet.Cells(i, 1).Value = b
Next
End Sub
Anzeige