Makro anpassen
03.12.2018 12:50:53
Albert
ich möchte gerne mehrere Datumsangaben aus der Spalte "L" in mit dem aktuellen Datum vergleichen und je nachdem wie die zeitlichen Abstände in Tagen sind diese einfärben, grün ok, gelb Warnung, rot kritisch.
Ich komme nicht bei der DateDiff weiter und wie die If-bedingung danach entstehen soll um die _
Zeilen passend einzufärben.
Sub datumvergleich()
Dim Sheets As Worksheet
Dim date1 As Date
Dim date2 As Date
Dim i As Integer, farbe As Integer
Set objWbMaster = ThisWorkbook
date1 = Sheets("C2_Aktuell").Range("L:L").Value
date2 = "Date"
If DateDiff("d", date1, date2) Danke und VG
Albert