wenn älter als 30 Tage, dann Zelle gelb
Wolfgang
mit dem folgenden Code würde ich gerne erreichen, dass die Spalte J, ab J2 überprüft wird, ob sich hierin ein Datum befindet, welches älter als 30 Tage ab Systemdatum ist. Wenn ja, soll das jeweilige Datum bzw. die Zelle jeweils gelb markiert werden. Was mache ich da verkehrt. Irgendwie werden die Zellen nicht gelb.- Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Option Explicit
Sub gelb()
Dim Wks As Worksheet, Zelle As Range, Zelle2 As Range
Set Wks = Worksheets("Daten")
With Wks
For Each Zelle In .Range(.Cells(1, 10), .Cells(1, .Columns.Count).End(xlToLeft))
If Zelle.Value