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