In een toepassing heb ik nodig de rijen waar een pagebreak plaatsvindt.
Ik zoek de achtereenvolgende pagebreaks en vraag dan de rij op.
Hierbij maak ik gebruik van
For Each pPB In Sheets("Blad1").HPageBreaks
nRow = pPB.Location.Row
Next
In het statement For Each pPB In Sheets("Blad1").HPageBreaks krijg ik de fout:
Fout 9 het subscript valt buiten het bereik.
Ik wil dit toepassen in meerdere toepassingen. In sommige toepassingen werkt dit wel, in andere niet.
Wat doe ik fout.
Een versimpeld testprogramma voeg ik bij.
Ten behoeve van de privacy heb ik alle gegevens heb geanonimiseerd.
Ik zoek de achtereenvolgende pagebreaks en vraag dan de rij op.
Hierbij maak ik gebruik van
For Each pPB In Sheets("Blad1").HPageBreaks
nRow = pPB.Location.Row
Next
In het statement For Each pPB In Sheets("Blad1").HPageBreaks krijg ik de fout:
Fout 9 het subscript valt buiten het bereik.
Ik wil dit toepassen in meerdere toepassingen. In sommige toepassingen werkt dit wel, in andere niet.
Wat doe ik fout.
Een versimpeld testprogramma voeg ik bij.
Ten behoeve van de privacy heb ik alle gegevens heb geanonimiseerd.