hi,
danke mal für den vorschlag,
hat aber nicht funktioniert.
excel sagt, es ist ein unbekanntes Zahlenformat.
Gruß, Andi
nicht Zellformatierung sonder
Bedingte Formatierung
läuft nicht so recht…
nicht Zellformatierung sonder
Bedingte Formatierung
läuft nicht so recht…
Hi Andreas,
meinste Spaguzzi hat ne Glaskugel und kann erahnen was du falsch machst, denn seine Tipps waren/sind richtig.
So what, lass mal das nachstehende Makro laufen, ggfs vorher den Bereich und die Farbe (5=Blau)anpassen.
Gruß
Reinhard
Sub Makro1()
On Error Resume Next
For Each Zelle In Worksheets("Tabelle1").Range("A1:A31").Cells
Zelle.FormatConditions(1).Delete
Zelle.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Zelle.Address(0, 0) & "=HEUTE()"
Zelle.FormatConditions(1).Font.ColorIndex = 5
Next Zelle
End Sub