Note: The other languages of the website are Google-translated. Back to English

Wie füge ich Seitenumbrüche ein, wenn sich der Wert in Excel ändert?

Angenommen, ich habe eine Reihe von Zellen und möchte jetzt Seitenumbrüche in das Arbeitsblatt einfügen, wenn sich die Werte in Spalte A wie im linken Screenshot gezeigt ändern. Natürlich können Sie sie einzeln einfügen, aber gibt es schnelle Möglichkeiten, die Seitenumbrüche basierend auf den geänderten Werten einer Spalte sofort einzufügen?

Fügen Sie Seitenumbrüche ein, wenn sich der Wert mit dem VBA-Code ändert

Fügen Sie Seitenumbrüche ein, wenn sich der Wert mit einer leistungsstarken Funktion ändert


Fügen Sie Seitenumbrüche ein, wenn sich der Wert mit dem VBA-Code ändert

Der folgende VBA-Code kann Ihnen dabei helfen, Seitenumbrüche basierend auf einmaligen Änderungen der Spaltendaten einzufügen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Seitenumbrüche einfügen, wenn sich der Wert ändert:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Dann drücken F5 Als Schlüssel zum Ausführen dieses Codes wurden alle Seitenumbrüche in das Blatt eingefügt, wenn sich Daten in Spalte A ändern. Siehe Screenshot:

Hinweis:In dem obigen Code, A Ist der Spaltenkopf, auf dessen Grundlage Sie einen Seitenumbruch einfügen möchten, können Sie ihn nach Bedarf ändern.

Fügen Sie Seitenumbrüche ein, wenn sich der Wert mit einer leistungsstarken Funktion ändert

Wenn Sie Kutools for ExcelMit seinen Unterschiede unterscheiden Mit dieser Funktion können Sie schnell Seitenumbrüche, leere Zeilen, untere Randlinien oder Hintergrundfarben basierend auf den Wertänderungen einfügen. Klicken Sie hier, um Kutools für Excel herunterzuladen!

Tipps:Um dies anzuwenden Unterschiede unterscheiden Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen > Format > Unterschiede unterscheiden, siehe Screenshot:

2. In der herausgesprungen Unterscheiden Sie Unterschiede anhand der Schlüsselspalte Führen Sie im Dialogfeld die folgenden Vorgänge aus:

  • Wählen Sie den Datenbereich und die Schlüsselspalte aus, die Sie verwenden möchten.
  • Auswählen Seitenwechsel von dem Optionen Box.

3. Dann klick Ok Schaltfläche, die Seitenumbrüche wurden basierend auf den Wertänderungen in den Bereich eingefügt, siehe Screenshot:

Kutools für Excel jetzt herunterladen und kostenlos testen!


Weitere relative Artikel:

  • Markieren Sie Zeilen, wenn sich der Zellenwert in Excel ändert
  • Wenn Ihr Arbeitsblatt eine Liste wiederholter Werte enthält und Sie die Zeilen basierend auf Spalte A markieren müssen, ändert sich der Zellenwert wie im folgenden Screenshot gezeigt. Tatsächlich können Sie diesen Auftrag mithilfe der Funktion "Bedingte Formatierung" schnell und einfach beenden.
  • Inkrementieren Sie die Zahlen, wenn sich der Wert in einer anderen Spalte ändert
  • Angenommen, Sie haben eine Liste von Werten in Spalte A, und jetzt möchten Sie die Zahl in Spalte B um 1 erhöhen, wenn sich der Wert in Spalte A ändert. Dies bedeutet, dass die Zahlen in Spalte B erhöht werden, bis sich der Wert in Spalte A ändert Das Zahleninkrement beginnt wieder bei 1, wie im linken Screenshot gezeigt. In Excel können Sie diesen Job mit der folgenden Methode lösen.
  • Summenzellen, wenn sich der Wert in einer anderen Spalte ändert
  • Wenn Sie an einem Excel-Arbeitsblatt arbeiten, müssen Sie manchmal Zellen basierend auf einer Datengruppe in einer anderen Spalte summieren. Hier möchte ich beispielsweise die Bestellungen in Spalte B summieren, wenn sich die Daten in Spalte A ändern, um das folgende Ergebnis zu erhalten. Wie können Sie dieses Problem in Excel lösen?
  • Leere Zeilen einfügen, wenn sich der Wert in Excel ändert
  • Angenommen, Sie haben einen Datenbereich und möchten jetzt leere Zeilen zwischen die Daten einfügen, wenn sich der Wert ändert, damit Sie die aufeinander folgenden gleichen Werte in einer Spalte wie in den folgenden Screenshots trennen können. In diesem Artikel werde ich über einige Tricks sprechen, mit denen Sie dieses Problem lösen können.
  • Führen Sie das Makro aus, wenn sich der Zellenwert in Excel ändert
  • Normalerweise können wir in Excel die Taste F5 oder die Schaltfläche Ausführen drücken, um den VBA-Code auszuführen. Haben Sie jemals versucht, den spezifischen Makrocode auszuführen, wenn sich ein Zellenwert ändert? In diesem Artikel werde ich einige schnelle Tricks vorstellen, um diesen Job in Excel zu bearbeiten.

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (8)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Danke dir! Der Gedanke an VBA bringt mich ins Schwitzen. Ich habe jedoch ein Problem mit den Ergebnissen dieses Codes. Die erste Spalte ist eine Spaltenüberschrift. Der Code behandelt dies als Änderung. Meine erste Seite zeigt nur die Spaltenüberschrift, aber die folgenden Seiten sind in Ordnung. FYI: Dies ist für einen monatlichen Bericht und die Anzahl der Zeilen für jedes Kriterium ändert sich monatlich. Irgendwelche Ideen? Vielen Dank im Voraus.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es tut uns leid. EDIT: Die erste Zeile ist eine Spaltenüberschrift.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist wirklich genial! Ich bin Ihrem VB-Beispiel gefolgt und es hat funktioniert! Ich bin auch ein Besitzer von KUTools, also werde ich auch damit spielen.

Sehr beeindruckt und danke!

Mike
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, die ersten 20 Zeilen des Blattes zu überspringen? Wenn ich alle möglichen Sachen ausprobiert habe, aber mein VBA-Wissen ist zu begrenzt, um den Code selbst anzupassen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Wilko,
Um den Seitenumbruch einzufügen, aber die ersten 20 Zeilen zu überspringen, müssen Sie nur einen Parameter wie im folgenden Code ändern:

Sub insertpagebreaks ()

'updateby Extendoffice

Dim I so lang, J so lang

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Für I = J bis 21 Schritt -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Nächstes Ich

End Sub

Bitte versuchen, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Lê Tuấn
Um Ihr Problem zu lösen, wenden Sie bitte den folgenden VBA-Code an:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Vielen Dank!
Es sind noch keine Kommentare vorhanden
Bitte hinterlassen Sie Ihre Kommentare auf Englisch
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL