Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenumbruch automatisch anpassen

Forumthread: Seitenumbruch automatisch anpassen

Seitenumbruch automatisch anpassen
12.04.2019 21:29:46
Christian
Hallo Excel-Freunde,
ich bin schon langer stiller Mitleser dieses Forums und habe bisher einige Lösungsansätze erfolgreich auf meine Anwendungen angepasst.
Bei meinem aktuellen Problem komme ich leider nicht weiter und möchte Euch um Hilfe bitten.
Die Auswertung einer großen Datentabelle ergibt auf einem neuen Blatt eine Auswertung die nach folgendem Schema aufgebaut ist:
Kategorie
Überschrift Überschrift Überschrift …
Daten Daten Daten
Kategorie
Überschrift Überschrift Überschrift …
Daten Daten Daten
usw.
zwischen den einzelnen Bereichen ist jeweils eine Leerzeile.
Das Ganze soll ausgedruckt werden. Nun kommt es vor, dass die automatischen Seitenumbrüche mir einen Bereich so zerstückeln, das z.B. unten auf dem Blatt die Kategorie steht und auf der nächsten Seite erst die Überschriften.
Ich möchte das gern per VBA automatisch anpassen, dabei soll folgende Logik angewandt werden:
Suche den ersten Seitenumbruch, ist die Zelle leer, alles ok weiter zum nächsten.
Steht in der Zelle etwas und die Zelle darüber ist leer, alles ok weiter zum nächsten.
Steht in der Zelle etwas und die Zelle darüber ist nicht leer, suche nach oben nach der nächsten leeren Zelle und füge darunter einen Seitenumbruch ein.
Vielen Dank fürs Lesen und Helfen...
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
"Schusterjungen"
13.04.2019 06:50:06
lupo1
... kann Word automatisch. Bei Excel muss man tatsächlich die Liste manuell ablaufen.
Du hast dann aber noch keinen Einfluss auf "Hurenkinder". Die wären aber genauso handhabbar.
Den Code bekommst Du vom VBA'ler Deines Vertrauens hier genannt.
AW: CEF
13.04.2019 14:17:16
Fennek
bei Clever-Exel habe ich dir einen Vorschlag gepostet. (lol)
Anzeige
"gefällt mir"
13.04.2019 15:27:59
lupo1
Anzeige
Anzeige

Infobox / Tutorial

Seitenumbruch in Excel automatisch anpassen


Schritt-für-Schritt-Anleitung

Um den automatischen Seitenumbruch in Excel anzupassen, kannst Du ein VBA-Skript verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und lade die Arbeitsmappe, in der Du die Seitenumbrüche anpassen möchtest.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Sub SeitenumbruchAutomatischAnpassen()
        Dim ws As Worksheet
        Dim i As Long
    
        Set ws = ThisWorkbook.Sheets("DeinBlattname") ' Blattname anpassen
    
        For i = 1 To ws.HPageBreaks.Count
            If ws.HPageBreaks(i).Location.Value <> "" Then
                If ws.HPageBreaks(i).Location.Offset(-1, 0).Value <> "" Then
                    ws.HPageBreaks.Add Before:=ws.HPageBreaks(i).Location.Offset(-1, 0)
                End If
            End If
        Next i
    End Sub
  5. Ändere DeinBlattname zu dem Namen des Arbeitsblatts, auf dem Du die Anpassung vornehmen möchtest.

  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.


Häufige Fehler und Lösungen

  • Problem: Das Makro führt keine Anpassungen durch.

    • Lösung: Stelle sicher, dass Du den richtigen Blattnamen im Code angegeben hast.
  • Problem: Excel stürzt ab oder reagiert nicht.

    • Lösung: Überprüfe, ob Deine Excel-Version VBA unterstützt und aktualisiere gegebenenfalls auf die neueste Version.
  • Problem: Seitenumbrüche werden nicht wie gewünscht eingefügt.

    • Lösung: Überprüfe die Logik im VBA-Code und stelle sicher, dass die Bedingungen korrekt sind.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Umbruchvorschau nutzen, um Seitenumbrüche manuell anzupassen:

  1. Gehe zu Seitenlayout in der Menüleiste.
  2. Klicke auf Umbruchvorschau.
  3. Ziehe die blauen Linien, um die Seitenumbrüche manuell anzupassen.

Diese Methode ist hilfreich, wenn Du nur kleinere Anpassungen vornehmen möchtest.


Praktische Beispiele

Angenommen, Du hast eine Tabelle mit mehreren Kategorien, und Du möchtest sicherstellen, dass jede Kategorie nicht auf einer neuen Seite beginnt. Mit dem VBA-Skript kannst Du das wie folgt umsetzen:

  • Beispiel: Wenn in der Zelle A10 der Text "Kategorie 1" steht und in A11 die Überschrift "Daten", wird das Skript automatisch einen Seitenumbruch unter der letzten leeren Zelle vor A10 hinzufügen.

Tipps für Profis

  • Nutze die Umbruchvorschau, um die Auswirkungen Deiner Änderungen sofort zu sehen.
  • Experimentiere mit verschiedenen Bedingungen im VBA-Code, um ihn an Deine speziellen Anforderungen anzupassen.
  • Speichere Deine Arbeitsmappe regelmäßig, um Datenverlust zu vermeiden, besonders wenn Du mit VBA arbeitest.

FAQ: Häufige Fragen

1. Wie füge ich manuell einen Seitenumbruch ein?
Du kannst einen Seitenumbruch manuell einfügen, indem Du die Zelle auswählst, wo der Umbruch erfolgen soll, und dann zu Seitenlayout > Seitenumbruch > Umbruch einfügen gehst.

2. Kann ich den automatischen Seitenumbruch in Excel deaktivieren?
Ja, Du kannst den automatischen Seitenumbruch entfernen, indem Du zu Seitenlayout gehst und die Option Umbrüche > Automatischer Seitenumbruch entfernen wählst.

3. Wie kann ich die Umbruchvorschau in Excel aktivieren?
Gehe zu Seitenlayout und klicke auf Umbruchvorschau, um die automatische Umbruchvorschau zu aktivieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige