Wie fügt man bedingt Seitenumbrüche in Excel ein?

Angenommen, Sie müssen Seitenumbrüche einfügen, während sich die Werte in Spalte A ändern, wie im folgenden Screenshot gezeigt. Wie könnten Sie dies in Excel handhaben? Im Allgemeinen können Sie die Seitenumbrüche manuell nacheinander einfügen, aber hier stelle ich einige Tricks vor, um dies schnell zu lösen.

Verwenden der Teilergebnis-Funktion zum Einfügen von Seitenumbrüchen

Verwenden von VBA-Code zum Einfügen von Seitenumbrüchen

Unterschiede hervorheben, um Seitenumbruch bei Datenänderung einzufügen

Seitenumbruch in jeder Zeile einfügen, um Seitenumbrüche in jeder n-ten Zeile einzufügen

Verwenden der Teilergebnis-Funktion zum Einfügen von Seitenumbrüchen

In Excel kann die Teilergebnis-Funktion Seitenumbrüche basierend auf Gruppen hinzufügen.

1. Wählen Sie die Daten aus, denen Sie Seitenumbrüche hinzufügen möchten, und klicken Sie auf Daten > Teilergebnis.

2. Im Fenster Teilergebnis Dialogfeld wählen Sie die Spalte aus, in der Sie basierend auf ihrem Wert einen Seitenumbruch einfügen möchten, aus der Dropdown-Liste „Bei jeder Änderung“. Wählen Sie dann die Funktion aus, die Sie verwenden möchten. Funktion verwenden Liste, und aktivieren Sie dann das Kontrollkästchen Seitenumbruch zwischen Gruppen und andere Optionen nach Bedarf.

3. Klicken Sie auf OK. Nun wurden die Daten gruppiert und Seitenumbrüche hinzugefügt.

Verwenden von VBA-Code zum Einfügen von Seitenumbrüchen

Wenn Sie keine Gruppen zu den Daten hinzufügen möchten, können Sie VBA-Code verwenden, um diese Aufgabe zu erledigen.

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

2. Klicken Sie auf Einfügen > Modul, kopieren und fügen Sie den folgenden Code in das neue Modulfenster ein.

VBA: Seitenumbrüche einfügen, wenn sich Daten ändern

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. Drücken Sie F5 Taste, es erscheint ein Dialogfeld, das Sie daran erinnert, die Schlüsselspalte auszuwählen, in der der Seitenumbruch basierend darauf eingefügt wird.

4. Klicken Sie auf OK, nun wurden die Seitenumbrüche eingefügt.

Unterschiede hervorheben, um Seitenumbruch bei Datenänderung einzufügen

Die Funktion Unterschiede hervorheben von Kutools for Excel unterstützt das Einfügen von Seitenumbrüchen, Leerzeilen, unteren Rahmen oder Hintergrundfarben, wenn sich Daten in Excel ändern.

Nach der Installation von Kutools for Excel gehen Sie bitte wie folgt vor: (Jetzt kostenlos Kutools for Excel herunterladen!)

Klicken Sie auf Kutools > Format > Unterschiede hervorheben.

2. Im Dialogfeld Unterschiede in Schlüsselspalte hervorheben führen Sie bitte die folgenden Einstellungen aus:

1) Klicken Sie auf das Auswahl-Symbol im Abschnitt Bereich und wählen Sie den Datenbereich aus (ohne Spaltenüberschriften)

2) Klicken Sie auf das Auswahl-Symbol im Abschnitt Schlüsselspalte und wählen Sie die Spalte aus, in der Sie basierend auf entsprechenden Datenänderungen einen Seitenumbruch einfügen möchten (ohne Spaltenüberschriften)

3) Aktivieren Sie die Option Seitenumbruch im Abschnitt Optionen .

3. Klicken Sie auf Ok.

Nun wird ein Seitenumbruch eingefügt, wenn sich Daten im ausgewählten Bereich ändern.

Seitenumbruch in jeder Zeile einfügen, um Seitenumbrüche in jeder n-ten Zeile einzufügen

Wenn Sie Seitenumbrüche in einem festen Intervall einfügen möchten, können Sie das Hilfsprogramm „Seitenumbruch in jeder Zeile einfügen“ von Kutools for Excel verwenden, um das Problem schnell zu lösen.

Nach der Installation von Kutools for Excel gehen Sie bitte wie folgt vor: (Jetzt kostenlos Kutools for Excel herunterladen!)

1. Wählen Sie die Daten aus und klicken Sie auf Kutools Plus > Drucken > Seitenumbruch in jeder Zeile einfügen.

2. Im Fenster Seitenumbruch in jeder Zeile einfügen geben Sie das gewünschte Intervall ein.

3. Klicken Sie auf OK > OK um die Dialogfelder zu schließen, nun wurden die Seitenumbrüche in jeder 2. Zeile eingefügt.

  Seitenumbruch in jeder n-ten Zeile einfügen