Bedankt al vast voor de prachtige oplssing indertijd
Na een tijdje niet meer naar de code te hebben gekeken ik vandaag nog eens gekeken
Waarom staat er een + tussen de 2 wf.countilf functies en geen or
For Each ElkeCel In Range("I4:I44,R4:R44")
If ElkeCel = RodeLijnTeller Then
TweeWeken = wf.CountIf(Range("I4:I44"), ElkeCel) + wf.CountIf(Range("R4:R44"), ElkeCel)
If TweeWeken > EenWeek Then
EenWeek = EenWeek + 1
Call ZwartelijnLinksRechts(ElkeCel)
Else
'De EenWeek terug op 1 zetten
EenWeek = 1
' De onderstelijn dik rood kleuren
ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
' De lijn aan de linkerkant naar onder dik rood zetten
ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = 3
ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThick
' De lijn aan de rechterkant naar boven dik rood zetten
ElkeCel.Borders(xlEdgeRight).ColorIndex = 3
ElkeCel.Borders(xlEdgeRight).Weight = xlThick
RodeLijnTeller = RodeLijnTeller + 4 '
End If