Cel kleur aanpassen naar 10 werkdagen

[gpiket7]

Is het mogelijk in Excel om in te stellen dat een celkleur gewijzigd word naar 10 werkdagen in een andere kleur?

Bijvoorbeel in Cel A1 staat 5-11-2010 dan wil ik dat de celkleur op 19-11-2010 verandert in een andere kleur

 

[ExcelAmateur]

gpiket7,

Kijk eens of je hier wat mee kunt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  x = Date - 14
  If Range("A1") = x Then Range("A1").Interior.ColorIndex = 3
End Sub

 

[Cobbe]

Ja dat kan via Voorwaardelijke Opmaak en de formule:

Datum + 10

Succes, Cobbe

 

[gpiket7]

Heb het met beide geprobeerd, maar er gebeurd niets.

Macro geeft geen foutmelding, maar de cel wijzigt ook niet van kleur.
Voorwaardelijke opmaak wijzigt ook niets.

 

[ExcelAmateur]

gpiket7,

Heb je de code achter het blad gezet?
Zet in A1 6-11-2010 en verander x = Date - 14 in x = Date - 5
Nu zou hij moeten werken, bij werkt het wel.

 

[gpiket7]

ExcelAmateur,

Het klopt idd, als ik in A1 die datum zet dan wordt deze gewijzigd, maar het gaat nu niet precies zoals ik het bedoel.

Ik heb even een document erbij gedaan als voorbeeld.Bekijk bijlage Map2.xls

 

[Cobbe]

Zie bestandje.
Waarom zou dat niet werken als wij het zeggen?

Cobbe

 

[ExcelAmateur]

gpiket7,

Nu werkt het wel, zo zie je maar wat een voorbeeld doet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cl In Range("A:A")
  If cl.Value = "" Then Exit Sub
  x = Date - 14
  If cl.Value = x Or cl.Value < x Then cl.Interior.ColorIndex = 3
Next
End Sub

 

[Thoralf]

@ Excelamateur,

De code

If cl.Value = x Or cl.Value < x Then cl.Interior.ColorIndex = 3

kan verkort worden tot

If cl.Value <= x Then cl.Interior.ColorIndex = 3

Echter zet eens een datum die zou moeten kleuren in kolom A, maar dan zodanig dat er met de daarboven ingevulde regel een blanco regel is. Bijv A1:A9 invullen met datums, A10 leeg laten en in A11 een datum invullen die zou moeten kleuren.

En ook verwijder eens een gekleurde datum.

 

[ExcelAmateur]

Thoralf,

Dank je voor de corectie.

Echter zet eens een datum die zou moeten kleuren in kolom A, maar dan zodanig dat er met de daarboven ingevulde regel een blanco regel is. Bijv A1:A9 invullen met datums, A10 leeg laten en in A11 een datum invullen die zou moeten kleuren.

If cl.Value = "" Then Exit Sub

Ik denk dat het over deze regel gaat.
Dat heb ik gedaan zodat hij niet de gehele kolom hoef door te lopen, anders moet een Range worden ingesteld.
Dan kan deze regel worden verwijderd, als er van een Range gebruik word gemaakt

 

[gpiket7]

Heren, jullie worden bedankt!