Direkt zum Inhalt

Wie füge ich einen Seitenumbruch alle x Zeilen in Excel ein?

Es kann für Sie einfach und unkompliziert sein, einen Seitenumbruch in ein Arbeitsblatt einzufügen. Manchmal ist es erforderlich, Seitenumbrüche in alle X Zeilen einzufügen, um ordentlich zu drucken. Wie können Sie das tun? Hier stelle ich einige Methoden vor, um dieses Problem in Excel zu lösen.


Fügen Sie mit VBA in Excel alle X Zeilen einen Seitenumbruch ein

Möglicherweise kennen Sie VBA noch nicht, aber mit den folgenden Schritten wissen Sie möglicherweise, wie Sie VBA ausführen, um alle X Zeilen einen Seitenumbruch einzufügen. Hier füge ich alle 3 Zeilen einen Seitenumbruch ein.

1. Drücken Sie Alt + F11 um das anzuzeigen Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Fenster auf Insert > Modul Um ein neues Modulfenster anzuzeigen, kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Fügen Sie einen Seitenumbruch in alle X Zeilen eines Arbeitsblatts 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 Führen Sie Es erscheint eine Schaltfläche und ein Dialogfeld, in dem Sie alle X Zeilen angeben können, in die Sie einen Seitenumbruch einfügen möchten. Hier füge ich alle 3 Zeilen einen Seitenumbruch ein. Siehe Screenshot:
doc-insert-page-break-x-rows-1

4. Klicken Sie OKund dann wird in jede X-Zeile ein Seitenumbruch eingefügt.

Fügen Sie schnell einen Seitenumbruch in jede (n-te) Zeile des aktiven Arbeitsblatts ein

Normalerweise fügen wir einen Seitenumbruch mit einem Klick ein Seitenlayout > Breaks > Seitenumbruch einfügen. Auf diese Weise ist es jedoch zu mühsam, mehrere Seitenumbrüche stapelweise in ein Arbeitsblatt einzufügen, z. B. müssen Sie einen Zeilenumbruch pro Zeile einfügen, um jede Zeile auf einer separaten Seite zu drucken. Mach dir keine Sorgen! Kutools für Excel Seitenumbruch in jede Zeile einfügen Dienstprogramm kann Ihnen helfen, es einfach zu archivieren!


Seitenumbruch in jede Zeile einfügen 3

Seitenumbrüche beim Batch-Einfügen nach jeweils x Zeilen mit Kutools for Excel

Wenn Sie Kutools für Excel installiert haben, ist es In Spalten teilen Mit dem Dienstprogramm können Sie mehrere Seitenumbrüche nach jeweils x Zeilen stapelweise einfügen, wobei der Titel auf jeder Seite in Excel problemlos beibehalten werden kann.

Kutools for Excel - Vollgepackt mit über 300 wichtigen Tools für Excel. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Jetzt herunterladen!

1. Klicken Sie In Spalten teilen auf die Kutoolen Plus Tab.

2. Im sich öffnenden Dialogfeld In Spalten teilen müssen Sie Folgendes tun:

(1) Klicken Sie auf die Schaltfläche Durchsuchen  der Titel reichen Wählen Sie die Titelzeile in dem angegebenen Bereich aus, in den Sie Seitenumbrüche stapelweise einfügen möchten.
(2) Klicken Sie auf die Schaltfläche Durchsuchen der Datumsbereich Wählen Sie den Bereich aus, in den Sie Seitenumbrüche stapelweise einfügen möchten.
(3) In der Zeilen pro gedruckter Seite Geben Sie im Feld eine Nummer ein. (Tipp: Wenn Sie beispielsweise nach jeweils 3 Zeilen Seitenumbrüche einfügen müssen, geben Sie bitte 3 in das Feld ein. Wenn Sie nach jeder Zeile Seitenumbrüche inertisieren müssen, geben Sie bitte 1 ein.)
(4) Geben Sie 1 in das Feld ein Anzahl der Segmente Box.

3. Drücke den Ok .

Jetzt sehen Sie, dass der Bereich in ein neues Arbeitsblatt kopiert wird und nach jeweils x Zeilen Seitenumbrüche hinzugefügt werden, wobei der Bereichstitel beibehalten wird. Sie können auch zur Seitenumbruchvorschau wechseln, indem Sie auf klicken Anzeigen > Seitenumbruchvorschau um diese Seitenumbrüche zu sehen. Siehe unten Screenshot.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt


Fügen Sie mit Kutools for Excel nach jeweils x Zeilen Seitenumbrüche ein

Kutools for Excel entwickelt ein weiteres Dienstprogramm zum Einfügen von Seitenumbrüchen in jede Zeile, das sich auf das einfache Einfügen von Seitenumbrüchen nach jeweils x Zeilen spezialisiert hat.

Kutools for Excel - Vollgepackt mit über 300 wichtigen Tools für Excel. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Jetzt herunterladen!

1. Wählen Sie den Bereich aus, in den Sie nach jeweils x Zeilen Seitenumbrüche einfügen möchten, und klicken Sie auf Druck > Seitenumbruch in jede Zeile einfügen auf die Kutoolen Plus Tab.

2. Geben Sie im sich öffnenden Dialogfeld Seitenumbruch in jede Zeile einfügen das Intervall der Zeilen an, in denen Seitenumbrüche eingefügt werden sollen, und klicken Sie auf Ok .

Dann sehen Sie, dass Seitenumbrüche im angegebenen Zeilenintervall gleichzeitig eingefügt werden.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt


Demo: Seitenumbruch alle x Zeilen in Excel einfügen


Kutools for Excel: Über 300 praktische Werkzeuge immer zur Hand! Starten Sie noch heute Ihre 30-tägige kostenlose Testversion ohne Funktionseinschränkungen. Jetzt herunterladen!

Relative Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello, Why is it limited to number. If my spreadsheet has more than 1000 rows it will not complete the page breaks for all rows after that point.
Thanks
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
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


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations