ich habe in der Zelle W1 das heutige Datum drin und frage per Makro ab , in welcher Zeile Cells(i, 20) kleiner ist als W1, wenn das zutrifft, soll die Zelle rot gefärbt werden. Das geht soweit:
If ActiveSheet.Cells(i, 20).Value <> "" And <b>ActiveSheet.Cells(i, 20).Value < Range("W1") </b>Then
Cells(i, 20).Select
Selection.Font.ColorIndex = 6
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Ich würde nun den Code dahin erweitern, das abgefragt wird:
Wenn Cells(i, 20) mehr als eine Woche vor W1 ist, dann so lassen (weis lassen)
Wenn Cells(i, 20) zwischen 1 und 7 Tage vor W1 ist, dann gelber hintergrund und rote Schrift.
Wenn Cells(i, 20) kleiner W1 dann Roter Hintergrung und gelbe Schrift (wie seither)
Wie mache ich das ?
Seither frage ich nur ab, ob kleiner W1, dann färben
Den Zeitraum 1. Woche vor Ablauf (gelber Hintergrund) hätte ich aber gerne definiert.
Danke für Eure Hilfe
Joachim