Automatisch cellen kleuren op basis van ingevuld weeknummer en aantal weken

[Mosselman]

Hallo allen,

Ik ben op zoek naar een VBA oplossing (voor een .xlsb) bestand om bepaalde cellen te laten kleuren op basis van:

- Het weeknummer dat gestart kan worden aan een bepaalt 'onderwerp'. (Zie kolom E, in de bijlage)
- Het aantal weken dat nodig is om een 'onderwerp' af te kunnen ronden. (Zie kolom D, in de bijlage)

In de bijlage treffen jullie het voorbeeldbestand, met daarbij extra uitleg.

Alvast bedankt allen!

Groet,
Mosselman

 

[SjonR]

zo?

Sub mosselman()

With Sheets("Blad1")
For Each cl In .Range("G9:BF28")

    If .Cells(8, cl.Column).Value >= .Cells(cl.Row, 5).Value And .Cells(8, cl.Column).Value <= (.Cells(cl.Row, 5).Value + .Cells(cl.Row, 4).Value) - 1 Then
        cl.Interior.Color = vbGreen
    Else
        cl.Interior.Color = xlNone
    End If
Next
  
End With

End Sub

 

[Mosselman]

Bedankt!

Beste SjonR,

Super, dit is precies wat ik zocht.
Ik ga verder experimenteren!

Groet,
Mosselman

 

[Jack Nouws]

Ook een mogelijkheid...

Sub mosselman()
  With Sheets("Blad1")
    .Range("G9:BF28").Interior.Color = xlNone
        For Each c In .Range("D9:D28")
          .Cells(c.Row, 7).Offset(, c.Offset(, 1) - 1).Resize(, c).Interior.Color = vbGreen
        Next
  End With
End Sub