Achtergrondkleur en tekstkleur veranderen bij waarden in cel

[jeroen562]

Ik heb een vraag met betrekking tot de opmaak functie binnen VBA.

Ik heb meer dan 3 celwaarden waarop een automatische opmaak op moet komen en heb dit met vba gedaan. Nu wil ik dat hij naast de tekstkleur ook de achtergrondkleur aanpast. Hoe doe je dit?

De code die het ongeveer moet worden in mijn ogen is:

For Each cl In Sheets("Blad1").Range("D9:D300")
    If cl.Value = "" Then cl.Offset(, 5).Resize(, 18).Interior.ColorIndex = 1 Font.colorindex = 3
  Next

Echter werkt het niet.

Hoop dat jullie me kunnen helpen.

Groeten Jeroen

 

[Hoornvan]

jeroen562,

Kijk of het zo wel lukt.

For Each cl In Sheets("Blad1").Range("D9:D300")
    If cl.Value = "" Then cl.Offset(, 5).Resize(, 18).Interior.ColorIndex = 1
    cl.Font.ColorIndex = 3
Next

 

[jeroen562]

Hoornvan,

Het is gelukt na een kleine aanpassing. Dank je!

 For Each cl In Sheets("Blad1").Range("D9:D300")
    If cl.Value = "" Then cl.Offset(, 5).Resize(, 18).Font.ColorIndex = 3
    cl.Offset(, 5).Resize(, 18).Interior.ColorIndex = 6
    Next

Groeten,
Jeroen