Formatierung mit VBA

[cavok]

Hallo Forum,

kann mir jemand weiterhelfen.
Ich habe ein Arbeitsblatt, das mit Datumsangaben gefüllt ist. Zellen sind als Datum formatiert.

Ich bräuchte einen VBA-Code der diejenigen Zellen meines Arbeitsblattes farblich makiert (z.B. gelb), die ein Datum enthalten die vor dem heutigen Datum liegen.


Vielen Dank für Eure Mühe

Gruß
Hubert

[steve1da]

Hola, 

sind die Datumswerte in verschiedenen Spalten oder immer in der gleichen?

Gruß,
steve1da

[cavok]

Hallo,

danke für deine schnelle Antwort, ich war etwas zu schnell mit meiner Anfrage.
ich habe meinen Fehler in dem Code entdeckt, den ich mir gebastelt habe und jetzt funktioniert es.

Aber vielleicht

Code:

Private Sub Worksheet_Activate()
Dim FCell As Range
    Dim raBereich As Range
    Set raBereich = Range("f6:be87")
    If Not raBereich Is Nothing Then
        For Each FCell In raBereich
            Select Case CDate(FCell.Value)
                Case Is <= Now()
                    FCell.Font.Color = 255
                Case Else
                    FCell.Font.Color = 0
            End Select
        Next FCell
    End If
    Set raBereich = Nothing

End Sub

Danke
Hubert