Zellen rot färben

Bild

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.

Bild


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).


Bild


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.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen rot färben"