Zie scherm afdruk voor de juiste werking

Als je de lege cellen onder het gereedschap er naast zet? dan is m.i. jouw probleem verholpen.

Zo iets? Sub PageBreak() Dim lngLastRow As Long Dim Teller As Long With ActiveSheet lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row .ResetAllPageBreaks For Teller = 41 To lngLastRow Step 40 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(Teller) Next End With End Sub

In kolom G de formule =ALS(B2="woonwerk";F2-E2;"")
In kolom H de formule =ALS(B2="zakelijk";2-E2;"")

Kan je (voorbeeld)bestanden (geanonimiseerd) uploaden?

Zo iets?

Hoi Ton, ook als je een filter hebt aanstaan, wekelijks komt het voor dat ik alle kleuren kwijt ben. Volges mij ligt t aan de zoekfunctie ism de filters is er een code die een melding geeft, let op je filter staat nog aan? Gr. Ronnie. Na de laatste zoekactie wordt alles geel, behalve de selectie. A...

Wanneer ik op de zoekbalk klik en in het venster een zoekwaarde invoer, krijg ik de waarde en blijven alle kleuren bestaan.

Jan Karel,
Het is inderdaad een browser dingetje: ook in Google Chrome wordt alle code achter elkaar gezet, van begin tot End Sub.
Oh, ook in Edge staat het bij mij achter elkaar.

Dag Knek,
Misschien bedoel je iets zoals in de bijlage.
Het enige wat hier ontbreekt is de geneste als-formule om te bepalen of de tijden binnen een half uur na de eerste call vallen.