Rij kleuren na vergelijking

[maomanna]

Hallo allen,

ik heb een aantal cellen met bepaalde waarden erin, die vergeleken moeten worden met het weeknummer op dat moment.

Als de cel in de range matched met het weeknummer van vandaag, dan moet de regel kleuren.

Private Sub zoekweek()

Dim cl As Range

For Each cl In Range("D2:O100")
If cl.Value = 2 Then
cl.Resize(, 1).Interior.ColorIndex = 3
Else: cl.Resize(, 1).Interior.ColorIndex = xlNone
End If
Next cl

End Sub

hieronder het voorbeeldbestand


Bekijk bijlage test.xlsb

hoe krijg het voor elkaar om in de vba het weeknummer te bepalen en daar de voorwaarden aan te stellen om de hele regel te kleuren?

 

[HSV]

Haal 'Private' voor de sub weg, dan is het tenminste zichtbaar met Alt+F8.
En eigenlijk moet het in een standaard module ipv in een werkblad-module.


Bv.

Sub zoekweek()
Dim sn, i As Long, rw As Variant
sn = Cells(1).CurrentRegion
For i = 2 To UBound(sn)
 rw = Application.Match(DatePart("ww", Date, vbMonday, vbFirstFourDays), Application.Index(sn, i, 0), 0)
 If Not IsError(rw) Then
    Cells(i, 1).Resize(, 9).Interior.ColorIndex = 3
  Else
    Cells(i, 1).Resize(, 9).Interior.ColorIndex = xlNone
 End If
Next i
End Sub

 

[maomanna]

Dat is snel

Dank je wel! Werkt als goed!