Hallo,

ich beschäftige mich erst seit kurzem mit VBA und komme nicht weiter ...

Zeilen einer Tabelle (A:D) müssen nach Datum (Spalte D) farbig formatiert werden.

<=Heute()          => ROT

Heute()+3Tage  => GELB

>Heute()+3Tage => GRÜN

In der If-Anweisung habe ich aktuell "25.07.2012" und "27.07..07.2012" stehen, möchte aber per Funktion über das aktuelle Datum prüfen lassen.

Wie kann ich in die If-Anweisung "<=TODAY()" oder = "=TODAY()+3 einsetzen,um täglich über das Systemdatumzu prüfen???

If ActiveCell.FormulaR1C1 = "<=TODAY()" Then _ ..... klappt nicht ?!?

Sub DatumFarbigMarkieren()

'

' Spalte mitDatum auswählen

Range("d2").Select

' Schleife: Makro ausführen bis Leerzelle

Do Until ActiveCell.Value = ""

' Bedingung
If ActiveCell.Value <= "25.07.2012" Then _

    Selection.End(xlToLeft).Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .ColorIndex = 3  'rot
        .Pattern = xlSolid
    End With
  
  
ElseIf ActiveCell.Value >= "27.07.2012" Then _

    Selection.End(xlToLeft).Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .ColorIndex = 4 'grün
        .Pattern = xlSolid
    End With
   
   
Else
    Selection.End(xlToLeft).Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .ColorIndex = 6 'gelb
        .Pattern = xlSolid
    End With

End If

' Nächste Zeile/Zelle prüfen

    Selection.End(xlToRight).Select

    ActiveCell.Offset(1, 0).Select

Loop

End Sub