Hoe voeg je elke x rijen een pagina-einde in in Excel?

Het kan eenvoudig en simpel zijn om een pagina-einde in een werkblad in te voegen. Soms is het nodig om pagina-einden in elke X rijen in te voegen voor een nettere afdruk, hoe doe je dat? Hier introduceer ik een paar methoden om dit probleem in Excel op te lossen.

• Voeg een pagina-einde in elke X rijen toe met VBA in Excel
• Pagina-einden bulksgewijs invoegen na elke x rijen
• Pagina-einden bulksgewijs invoegen na elke x rijen met het toevoegen van een rijkop boven elke x rijen

Voeg een pagina-einde in elke X rijen toe met VBA in Excel

Misschien ben je niet bekend met het uitvoeren van VBA-code, maar met de volgende stappen leer je hoe je VBA kunt gebruiken om een pagina-einde elke X rijen in te voegen. Hier zal ik een pagina-einde invoegen elke 3 rijen.

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster weer te geven.

2. Klik in het venster op Invoegen > Module om een nieuw modulevenster te openen, kopieer vervolgens de volgende VBA-code naar het modulevenster.

VBA: Voeg een pagina-einde in elke X rijen in een werkblad in.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Klik Uitvoeren knop en er verschijnt een dialoogvenster waarin je kunt specificeren om de X rijen waar je een pagina-einde wilt invoegen. Hier voeg ik een pagina-einde in elke 3 rijen in. Zie screenshot:

4. Klik op OK, en vervolgens wordt er een pagina-einde ingevoegd in elke X rijen.

Pagina-einden bulksgewijs invoegen na elke x rijen met Kutools voor Excel

Als je Kutools voor Excel hebt geïnstalleerd, kan de functie Verdeel Gegevens je helpen om meerdere pagina-einden na elke x rijen in te voegen terwijl je de titel op elke pagina behoudt, gemakkelijk in Excel.

1. Klik op Verdeel Gegevens op het tabblad Kutools Plus.

2. In het geopende dialoogvenster Verdeel Gegevens moet je:

(1) Klik op de Bladeren-knop  in de Titelbereik vak, en selecteer de titelrij in het gespecificeerde bereik waar je pagina-einden bulksgewijs wilt invoegen.
(2) Klik op de Bladeren-knop in de Databereik vak, en selecteer het bereik waar je pagina-einden bulksgewijs wilt invoegen.
(3) In de Rijen per pagina vak, voer een getal in. (Tip: Bijvoorbeeld, als je pagina-einden wilt invoegen na elke 3 rijen, voer dan 3 in het vak in; als je pagina-einden na elke rij wilt invoegen, voer dan 1 in.)
(4) Voer 1 in het Aantal segmenten vak.

3. Klik op de Ok-knop.

Nu zie je dat het bereik naar een nieuw werkblad is gekopieerd, en dat er pagina-einden zijn toegevoegd na elke x rijen terwijl de titel van het bereik behouden blijft. Je kunt ook overschakelen naar de Pagina-einde Voorbeeldweergave door te klikken op Weergave > Pagina-einde Voorbeeld om deze pagina-einden te zien. Zie onderstaande screenshot.

Pagina-einden invoegen na elke x rijen met Kutools voor Excel

Kutools voor Excel heeft een andere functie Pagina-einde invoegen na elke rij ontwikkeld die gespecialiseerd is in het invoegen van pagina-einden na elke x rijen.

1. Selecteer het bereik waar je pagina-einden na elke x rijen wilt invoegen, en klik op Afdrukken > Pagina-einde invoegen na elke rij op het tabblad Kutools Plus.

2. In het geopende dialoogvenster Pagina-einde invoegen na elke rij, specificeer het interval van rijen waar pagina-einden worden ingevoegd, en klik op de Ok knop.

Dan zie je dat pagina-einden direct op het gespecificeerde interval van rijen zijn ingevoegd.

Demo: voeg een pagina-einde in elke x rijen in Excel

Gerelateerde artikelen:

• Pagina-einde invoegen of verwijderen in Excel