Datum terug in de tijd

[cojaone]

Hallo,

Ik zit met een vraagje.
Op cells a1, a2,a3 enz. worden datums ingezet. Nu wil ik als er een jaar voorbij is er een melding komt of het vak a1,a2,a3 kleuren op. IK zou dit graag in een macro willen zien heb van alles opgezocht maar niet gevonden wat ik kan gebruiken. Dit werkt niet

Sub ColorCode(r As Range)
Dim cell As Range

If r Is Nothing Then Exit Sub
For Each cell In r
With cell
If IsDate(.Value) Then
Select Case .Value - Date
Case Is > 35: ' do nothing
Case Is <= 365: .Interior.ColorIndex = 45 'Light Orange
Case Is <= 364: .Interior.ColorIndex = 3 'Red
Case Else: .Interior.ColorIndex = 8 'Turquoise
End Select
End If
End With
Next cell
End Sub

Wie kan me hierbij helpen.

 

[Jan van Asseldonk]

Kan ook zonder vba d.m.v. voorwaardelijke opmaak.

Formule voor voorwaardelijke opmaak van cel C4.

=C4<NOW()-365

(Bij nederlandse excel NU() gebruiken i.p.v. NOW())

Zodra je de sheet opent en de datum ligt een jaar of meer terug wordt deze automatisch opgemaakt volgens de instellingen die je bij voorwaardelijke opmaak opgegeven hebt.
Je kunt eventueel meerdere regels opgeven zodat bijv. een week voordat het jaar voorbij is de cel oranje kleurt en na 365 dagen rood.


Voorbeeldje bijgevoegd voor Excel2003 en 2007.

 

[cojaone]

Bedankt Jan voor je snelle reactie. Dit is wat ik bedoelde