Wenn ein neuer Monat beginnt, dann...
23.02.2021 19:36:38
Marcel
ich habe eine Liste und in Spalte C wird per Makro ein Datum eingetragen.
Es soll gleichzeitig das letzte Datum in Spalte C abgefragt werden und wenn ein neuer Monat begonnen hat, 3 Zeilen weiter das neue Datum eingetragen werden.
Wenn ich ein richtiges Datum in die Formel schreibe funktioniert das auch, aber so nicht:
letzte = Application.Max(.Cells(Rows.Count, 3).End(xlUp))
letzte2 = Application.Max(.Cells(Rows.Count, 3).End(xlUp).Row + 3)
If Month(Date) > Month(letzte) Then
.Cells(letzte2, 3) = Format(Date, "MMMM")
so klappt es:
If Month(Date) > Month("23.01.2021") Then
.Cells(letzte2, 3) = Format(Date, "MMMM")
Danke für eure Antworten.