Dim Zelle As Range, Farbe As Long
21.08.2008 10:04:00
sockel939
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value
Case "Heute"
Farbe = 45
Case "Morgen"
Farbe = 42
Case "Mittag"
Farbe = 15
Case "Abend"
Farbe = 43
End Select
Range(Zelle.Offset(0, -Zelle.Column + 1), Zelle.Offset(0, -1)).Interior.ColorIndex = Farbe
Next Zelle
Danke.