Herbers Excel-Forum - das Archiv
Zellen rot färben
Betrifft: Zellen rot färben
von: MaxM.
Geschrieben am: 12.10.2003 15:03:46
Hallo Excelfreunde,
die Zellen B1:K100 habe ich wie folgt formatiert ( tt.mmmm ),
das ich das Datum so (z.b. 08.Dezember ) angezeigt bekomme.
Mein Problem, in einigen Zellen wird das Datum so (z.b. AprO1 ) angezeigt.
Was muss ich tun damit Excel mir mit einen Makro alle Zellen rot färbt die das Datum so (z.b. AprO1 ) anzeigen?
MaxM.
Betrifft: AW: Zellen rot färben
von: WernerB.
Geschrieben am: 12.10.2003 15:22:20
Hallo Max,
was hältst Du davon:
Option Explicit
Sub Max()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B1:K100")
If c.NumberFormat = "mmmyy" Then
c.Interior.ColorIndex = 3
End If
Next c
Application.ScreenUpdating = True
End Sub
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Betrifft: AW: Zellen rot färben
von: MaxM.
Geschrieben am: 12.10.2003 15:35:10
Hallo Werner,
vielen Dank für die schnelle Antwort.
Max M.