Wie fügt man in Excel nach jeder x-ten Zeile einen Seitenumbruch ein?

Es mag einfach und unkompliziert sein, einen Seitenumbruch in ein Arbeitsblatt einzufügen. Manchmal ist es jedoch erforderlich, nach jeder X-ten Zeile Seitenumbrüche für eine ordentliche Druckausgabe einzufügen – wie geht das? Hier stelle ich Ihnen ein paar Methoden vor, um dieses Problem in Excel zu lösen.

• Seitenumbruch nach X Zeilen mit VBA in Excel einfügen
• Mehrere Seitenumbrüche nach jeder x-ten Zeile einfügen
• Mehrere Seitenumbrüche nach jeder x-ten Zeile einfügen und darüber hinaus eine Zeilenüberschrift über jede x-te Zeile hinzufügen

Seitenumbruch nach X Zeilen mit VBA in Excel einfügen

Vielleicht haben Sie noch keine Erfahrung mit dem Ausführen von VBA, aber mit den folgenden Schritten werden Sie wissen, wie Sie die VBA ausführen, um nach jeder X-ten Zeile einen Seitenumbruch einzufügen. Ich werde hier einen Seitenumbruch nach jeweils 3 Zeilen einfügen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie im Fenster auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA: Fügen Sie in jeder X-ten Zeile eines Arbeitsblatts einen Seitenumbruch ein.

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. Klicken Sie auf Ausführen und ein Dialogfeld erscheint, in dem Sie angeben können, nach welcher Anzahl von Zeilen Sie einen Seitenumbruch einfügen möchten. In diesem Beispiel füge ich einen Seitenumbruch nach jeweils 3 Zeilen ein. Siehe Screenshot:

4. Klicken Sie auf OK, und es wird ein Seitenumbruch nach jeder X-ten Zeile eingefügt.

Mehrere Seitenumbrüche nach jeder x-ten Zeile mit Kutools für Excel einfügen

Wenn Sie Kutools für Excel installiert haben, kann dessen Funktion „Daten aufteilen“ Ihnen helfen, mehrere Seitenumbrüche nach jeder x-ten Zeile mit der Beibehaltung der Titel auf jeder Seite einfach in Excel einzufügen.

1. Klicken Sie auf der Registerkarte Kutools Plus auf Daten aufteilen.

2. Im sich öffnenden Dialogfeld „Daten aufteilen“ müssen Sie:

(1) Klicken Sie auf die Schaltfläche Durchsuchen  im Feld Titelbereich und wählen Sie die Titelzeile im angegebenen Bereich aus, in dem Sie Seitenumbrüche einfügen möchten.
(2) Klicken Sie auf die Schaltfläche Durchsuchen im Feld Datumsbereich und wählen Sie den Bereich aus, in dem Sie Seitenumbrüche einfügen möchten.
(3) Geben Sie im Feld Zeilen pro gedruckter Seite eine Zahl ein. (Tipp: Wenn Sie beispielsweise nach jeder 3. Zeile Seitenumbrüche einfügen möchten, geben Sie 3 in das Feld ein; wenn Sie nach jeder Zeile Seitenumbrüche einfügen möchten, geben Sie 1 ein.)
(4) Geben Sie 1 in das Feld Anzahl der Segmente ein.

3. Klicken Sie auf die Schaltfläche Ok.

Jetzt sehen Sie, dass der Bereich in ein neues Arbeitsblatt kopiert wurde und nach jeder x-ten Zeile Seitenumbrüche mit Beibehaltung des Bereichstitels hinzugefügt wurden. Sie können auch zur Seitenansicht „Seitenumbruch-Vorschau“ wechseln, indem Sie auf Ansicht > Seitenumbruch-Vorschau klicken, um diese Seitenumbrüche zu sehen. Siehe untenstehenden Screenshot.

Seitenumbrüche nach jeder x-ten Zeile mit Kutools für Excel einfügen

Kutools für Excel hat ein weiteres Hilfsmittel namens „Seitenumbruch nach jeder Zeile“, das speziell dafür entwickelt wurde, Seitenumbrüche nach jeder x-ten Zeile mühelos einzufügen.

1. Wählen Sie den Bereich aus, in dem Sie nach jeder x-ten Zeile Seitenumbrüche einfügen möchten, und klicken Sie auf Drucken > Seitenumbruch nach jeder Zeile auf der Registerkarte Kutools Plus.

2. Geben Sie im sich öffnenden Dialogfeld „Seitenumbruch nach jeder Zeile“ den Abstand der Zeilen an, in denen Sie Seitenumbrüche einfügen möchten, und klicken Sie auf die Ok Schaltfläche.

Dann sehen Sie, dass sofort Seitenumbrüche im angegebenen Zeilenabstand eingefügt werden.

Demo: Einfügen eines Seitenumbruchs nach jeder x-ten Zeile in Excel

Verwandte Artikel:

• Einfügen oder Entfernen von Seitenumbrüchen in Excel