If-Bedingung und Datum
03.10.2016 22:12:16
Denver
ich hatte hier schon mal nachgefragt, aber habe für mich noch keine passende Antwort gefunden, die auch umsetzen konnte. Vielleicht kann mir jemand weiterhelfen.
Es geht hier drum: https://www.herber.de/bbs/user/107517.xlsm
Es ist so, dass ich will, dass die Zahlen am 10. eines jeden Monats hinzugefügt werden sollen.
Jetzt ist z.B. der 20.09 und das Makro soll die Zahl dann nicht am 10.09 hinzufügen, sondern erst wieder am 10.10, 10.11 usw. hinzufügen. Ich versuche also z.B. eine If-Bedingung dafür einzubauen.
Wenn ich nach dem do ein If Day(Date) > 10 Then Exit Do einbaue, dann fügt er die Zahl am 10. eines Monats gar nicht mehr hinzu.
Heute = Date
Do
LastDatM = 10
DatumNew = CDate(LastDatM & "." & Format(Heute, "MM.YYYY"))
Set rngLetzterTag =
ThisWorkbook.Worksheets("Tabelle1").Columns("A:A").Find(What:=CDate(DatumNew),
LookIn:= xlFormulas, LookAt:=xlWhole)
If rngLetzterTag Is Nothing Then Exit Do
DatumNew = rngLetzterTag.Value