Bald anstehenden Termin kennzeichnen
18.07.2018 14:10:57
earlycon
Hallo zusammen,
in einer Spalte habe ich mehrere Termine untereinander stehen (Datum, z.B.: 31.07.2018).
Mit
...
letzteZeile = Worksheets(1).Cells(Rows.Count, 9).End(xlUp).Row
For Zeile = 4 To letzteZeile
If Sheets(1).Range("I" & Zeile).Value <= Date Then
...
färbe ich bereits die Zellen ein, dessen Datum mit dem heutigen übereinstimmt, bzw. schon hinter dem heutigen Datum liegen.
Ich würde aber gerne auch die Termine einfärben, die erst in z.B. 14 Tagen fällig werden. Ich bekomme es irgendwie nicht hin...
Hat da evtl. jemand von Euch eine Idee oder zumindest einen Ansatz für mich... ?
Vielen Dank und Gruß
Stefan