If-Bedingung für Datum
20.09.2016 11:59:48
Denver
bei diesem Code will ich eine If-Bedingung einfügen: 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 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