Clever-Excel-Forum

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

Hola,

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

Gruß,
steve1da

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

cavok

steve1da

cavok