@jaenPaul
Wat is de bedoeling van sub extradagen en sub feestdagen in vba

@jeanpaul
1ste waarom vo functies maken via vb en dan nog zoveel
en bij de 1 mei gaat het goed fout.
En waarom alles via vb gaan doen

en waarom al di voorwaardelijke opmaak via vba gemaakt

maar waarom al die voorwaardelijke opmaken via vba

waarom doet hij F7:f47 niet als ik er stap voor stap doorloop met functie toets f8

For Each ED1 In [B7:B47,K7:K47,F7:F47,O7:O47]
strFind = Format(ED1, 0) + 0
strFind = Format(ED1, 0)
ED1.Interior.ColorIndex = xlNone
cv = 0
If ED1 = "" Then GoTo Uit1
cv = Application.WorksheetFunction.Match(strFind, Rng, 0)
If cv >= 1 Then
    ED1.Interior.ColorIndex = 7
End If
Uit1:
Next

@Jeanpaul uw code werkt goed
Maar wil geen werkbladfuncties mengen in vba tenzij het niet anders kan
Maar ben verder gegaan vermoed ik op uw eerste code

Tot nu toe bij het testen via mijn code gaat het enkel fout in het jaar 2018 en weeknr en daar door ook bij de volgende weken
Wat is het probleem dat week 39 maar 1 x voorkomt en de rij er onder leeg is . Dus uitzonderlijk zouden moeten zeggen dat elkecel.Offset(1) = ""
If elkecel = RodelijnTeller And elkecel.Offset(1) <> RodelijnTeller And elkecel.Offset(1) <> "" Then

Of weet er iemand hoe wie die countif zouden kunnen vervangen door een vba code dus geen mengeling van werkblad functies en pure vba code door elkaar

@ glda19
Het laatste bestand dat ik hier gepost hebt, is het bestand dat zijn rode lijnen begint te trekken vanaf 1/1/1900,met een inbreng van Redhead zijn formule voor het berekenen van de eerste vierde week, waarvan ik zeg fantastische, met een formule het beoogde resultaat.
Mijn voorlaatste bestand dat ik hier gepost heb maakte de berekening van af 1/1/0000, voor het trekken van rode lijnen.
Het is nu aan u om uit te maken wanneer die berekening voor die  rode lijnen moeten beginnen, om jou kalender werkend te krijgen.

Je heb nu veel mooie voorbeelden waar je codes kunt uithalen en aan zelfstudie te doen om je bestand werkend te krijgen , tot op heden weet ik nog niet van welk jaartal de rode lijnen moeten berekend worden, en dat is het eerste wat in je code moet berekend worden en op welke manier, op een code of functie die je begrijpt en het snelste is, maar die keuze moet je zelf bepalen

@gdla
Ik heb de indruk dat je mijn inbreng van post #43 niet hebt gelezen

Wat is het probleem dat week 39 maar 1 x voorkomt en de rij er onder leeg is

Daarin staat dat er enkel  moet gekeken worden als er op zondag iets is ingevuld(kolom H of kolom Q) van die bepaalde week
Daarmee is het probleem van week 39 en de problemen van gedeelde weken in één voorwaarde opgelost.