Excel 2013

Det kan styres med betinget formatering med formlen:
=A1>IDAG()

med datoen i A1.

Ved hjælp af VBA kan det lade sig gøre: Makroen kan f.eks. aktiveres når filen åbnes.

Hej,

Tak for dit forslag. jeg ved ikke lige hvordan jeg får det til at virke.

Går udfra at jeg markerer ønskede celler -> klikker på betinget formatering og herfra måske vælger -> Formatér kun celler, der indeholder' og herfra??

Og kan det lade sig gøre at datoen 16.05.2014 står i A1, automatisk bliver rød den 16. maj?

VH

Som jeg skriver i mit tidligere indlæg skal du bruge FORMEL.

Marker cellerne
Vælg Betinget formatering -> Ny regel -> Brug en formel til at bestemme, hvilke celler der skal formateres.
=A1>IDAG()  -  hvor A1 er den første af de markerede celler
Vælg formatering

Jeg har fulgt det slavisk og der sker intet.
Har følgende værdier og der er både datoer før og efter IDAG

09.05.14    14.05.14
12.05.14    22.05.14
12.05.14    22.05.14

Ved ikke om jeg må sende mit excelark eller lign.

Og skal ikke ud i VBA som foreslået længere oppe :-)

VBA - hvorfor ikke? Jeg skal nok lægge det ind - så du er velkommen til at sende din fil - @-adresse under min profil.

Hvis du uploader filen til gupl.dk kigger jeg på det.

Du har ret. der er absolut ingen grund til at blande VBA ind i en simpel opgave med betinget formatering.

Fortsættelse...

Sæt linket til filen ind her.

Er du sikker på at cellerne er dato-formateret? Jeg opdager at du har brugt punktum som skilletegn i datoerne. Det får ikke Excel til automatisk at opfatte det indtastede som datoer.

Prøv med 09-05-2014 i stedet.

Opdater =idag() med tasten F9.
Mvh finb

Tusind tak alle sammen - 'supertekst' løste det med VBA og det virker meget fint.

Smider du et svar Supertekst?

Const startRæk = 3
Const normalFarve = 41                              'lys blå
Const overskredetFarve = 3                          'rød
Dim antalRæk As Long, ræk As Long
Dim dag As String, dato As Date
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$2" Then
        checkSlutDato
    End If
End Sub
Private Sub checkSlutDato()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row

    Application.ScreenUpdating = False
Rem traverser kolone H
    For ræk = startRæk To antalRæk
        If Range("H" & ræk) <> "" Then
            dag = Range("H" & ræk)
           
            dato = Replace(dag, ".", "-")
            If dato < Format(Now, "dd-mm-yy") Then
                Range("H" & ræk).Font.ColorIndex = overskredetFarve
            Else
                Range("H" & ræk).Font.ColorIndex = normalFarve
            End If
        End If
    Next ræk
End Sub