Hi,

im Bereich D115 bis D165 wirden Daten (Datumsformat) aus einem anderen Tabellenblatt ausgelesen. Steht nun in D115 bis D165 eine 0, soll die
Schriftfarbe auf weiss gesetzt werden.
Funktioniert leider nicht mit dem Makro unten.

Wer kann mir helfen ??

Gruss Joerg

Dim VerlaufDaten As Range
For Each VerlaufDaten In Range("D115:D165")
If VerlaufDaten.Value = "" Or VerlaufDaten.Value = "0" Then
Selection.Font.ColorIndex = 2 'schriftfarbe weiss
End If
Next VerlaufDaten