countif probleem

[glda19]

Hi

ik maak een speciale kalender waarop om de 4 weken een rodelijn moet komen te staan.
Het bepalen van de plaats van de eerste rodelijn heb ik al. Uit de code krijg ik terug bij welk weeknr de eerste rode lijn moet worden getekend.
Via een for each elkecel.value lus ga ik de kolom met de weeknrs doorlopen. En, tel ik na het tekenen van de rode lijn bij intRodelijnteller + 4 weken bij
elekecel.value geeft de waarde van elke cel weer. Als elkecel.value=intRodelijnteller. Dan controleer ik via countif hoeveel keer het weeknr voorkomt.

Het probleem is als de countif de waarde 2 terug geeft wil dit zeggen dat het huidige weeknr 2 x na elkaar voorkomt. En dan zou de rodelijn pas mogen worden gekend onder de tweede maal het weeknr voorkomt.




De code die ik al heb en werkt goed als het weeknr 1 x voorkomt maar wat bij 2x na elkaar.

For Each Elkecel In Range("i5:i45,R5:R45")
    If Elkecel.Value <> IntRodelijnTeller Then
        Call ZwartelijnLinksRechts(Elkecel)
    ElseIf Elkecel.Value = IntRodelijnTeller Then
        IntTweeWeken = wf.CountIf(Range("I5:I45"), Elkecel) + wf.CountIf(Range("R5:R45"), Elkecel)
        
        Call RodelijnLinksRechts(Elkecel)
        IntRodelijnTeller = IntRodelijnTeller + 4
       ' MsgBox IntTweeweken
    endif
next

Al vast bedankt voor de hulp

 

[edmoor]

Een voorbeeld document is toch wel de rode lijn in het Excel forum.

 

[glda19]

Kan ik niet geven sorry

 

[edmoor]

Een voorbeeld document kan altijd.
Maar goed, da's geheel aan jou.

 

[glda19]

op rij 44 gaat het fout week26 daar word de rodelijn getekent eind juni en zou na de eerste week van juli moeten zijn