Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenumbruch ermitteln in aktuelle Seite

Forumthread: Seitenumbruch ermitteln in aktuelle Seite

Seitenumbruch ermitteln in aktuelle Seite
urmila
Hallo,
im Netz finde ich zwar wie man die Seitenumbrüche ermittelt bzw damit arbeitet, nur ich brauche da eine andere Variante.
Im Excel Tabellenblatt (besser gesagt im aktuellen Tabellenblatt, also ActiveSheet) werden in verschiedenen Zeilen und Spalten Werte eingetragen, z.B. in Spalte B. Das gesamte Tabellenblatt ist vertikal gerichtet. Nun will ich dass wenn in kommenden 4 Zeilen ein Seitenumbruch folgt, mich benachrichtigen, z.B MsgBox oder soll was ausführen (das sollte dann nicht so schwer sein) Hauptsache ist wenn eine Seitenumbruch in 4 Zeilen ist, einfach was machen.....
Ich hoffe es war verständlich und ihr könnt mir weiterhelfen.
Danke und LG
Urmila
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Seitenumbruch ermitteln in aktuelle Seite
30.06.2010 09:13:57
Rudi
Hallo, 
wenn in kommenden 4 Zeilen ein Seitenumbruch folgt,

Das Problem ist, dass er noch nicht existiert, wenn das Blatt nach unten leer ist. So lange alles auf eine Seite passt, ist die Anzahl der Seitenumbrüche 0.
Gruß
Rudi
AW: Seitenumbruch ermitteln in aktuelle Seite
30.06.2010 09:22:10
urmila
Hallo Rudi,
danke für die Info.
Man kann doch im Excel auf die Seitenansicht klicken, dann sieht man ja die komplette Seite, schließt man diese Ansicht, sieht man doch die gestrichelte Linien im Tabellenblatt für Seitenwechsel. Kann man anhand dieser Lienien was anfangen oder kann man sagen dass ich 4 Zeilen die Seite endet?
Danke und LG
urmila
Anzeige
AW: Seitenumbruch ermitteln in aktuelle Seite
30.06.2010 10:17:25
Rudi
Hallo, 
Kann man anhand dieser Lienien was anfangen

nicht dass ich wüsste.
Wenn du nur 1 Seite haben willst, könntest du einen Druckbereich festlegen und die Meldung 4 Zeilen vor Ende des DB ausgeben. 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rPrint As Range
Set rPrint = Range(Me.PageSetup.PrintArea)
If Target.Row = rPrint.Row + rPrint.Rows.Count - 5 Then
MsgBox "Nur noch 4 Zeilen bis zum Ende"
End If
End Sub

Gruß
Rudi
Anzeige
AW: Seitenumbruch ermitteln in aktuelle Seite
30.06.2010 10:26:09
urmila
Hallo Rudi,
schade, dachte da gäbe eine Möglichkeit...mal schauen ob ich damit weiterkomme
danke und hochsommerlichen LG
Urmila
Man könnte auch ...
30.06.2010 10:32:05
Rudi
Hallo,
als Krücke z.B. in IV 5 Zeilen unterhalb Target füllen. Wenn dadurch ein Seitenumbruch erzeugt wird,dann die Meldung ausgeben. Anschließend wieder löschen.
Gruß
Rudi
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Seitenumbruch in der aktuellen Seite ermitteln

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und navigiere zu dem Arbeitsblatt, in dem du den Seitenumbruch ermitteln möchtest.

  2. Aktiviere die VBA-Entwicklungsumgebung:

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

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf „VBAProject (DeinDokumentName)“ und wähle „Einfügen“ > „Modul“ aus.

  4. Kopiere den folgenden Code in das Modul:

    Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rPrint As Range
   Set rPrint = Range(Me.PageSetup.PrintArea)
   If Target.Row = rPrint.Row + rPrint.Rows.Count - 5 Then
       MsgBox "Nur noch 4 Zeilen bis zum Ende"
   End If
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Arbeitsblatt.

  6. Teste die Funktion, indem du Werte in die Zellen des Arbeitsblatts eingibst. Bei vier Zeilen vor dem Seitenumbruch erscheint eine Meldung.

Häufige Fehler und Lösungen

  • Fehler: Keine Meldung erscheint

    • Lösung: Stelle sicher, dass der Druckbereich korrekt festgelegt ist. Gehe zu „Seitenlayout“ > „Druckbereich“ und überprüfe die Einstellungen.

  • Fehler: Falsche Zeilenanzahl wird angezeigt

    • Lösung: Überprüfe, ob du in der richtigen Zeile arbeitest und der Code im richtigen Arbeitsblatt-Modul eingefügt wurde.

Alternative Methoden

  • Manuelles Anpassen des Druckbereichs: Du kannst den Excel-Druckbereich anpassen, um die gestrichelten Linien für den Seitenumbruch korrekt anzuzeigen. Gehe zu „Seitenlayout“ > „Druckbereich“ > „Druckbereich festlegen“ und wähle den gewünschten Bereich aus.

  • Verwendung von Excel-Formeln: Du könntest auch eine Formel verwenden, um die Anzahl der Zeilen bis zum Seitenumbruch zu zählen, indem du die Gesamtanzahl der Zeilen und die Anzahl der bereits ausgefüllten Zeilen abziehst.

Praktische Beispiele

  • Beispiel 1: Angenommen, du hast einen Druckbereich, der die Zellen A1 bis A50 umfasst. Wenn du in Zeile 46 eine Änderung vornimmst, zeigt die MsgBox die Nachricht an, dass nur noch 4 Zeilen bis zum Ende des Druckbereichs verbleiben.

  • Beispiel 2: Wenn du deine Arbeitsmappe so einrichtest, dass sie die Excel gestrichelten Linien für den Druckbereich anzeigt, kannst du visuell überprüfen, wo die Seitenumbrüche liegen, bevor du Druckvorschau verwendest.

Tipps für Profis

  • Automatisierung: Du kannst den VBA-Code erweitern, um nicht nur eine Meldung anzuzeigen, sondern auch automatisch den Druckbereich anzupassen, wenn die Bedingungen erfüllt sind.

  • Dokumentation: Dokumentiere deinen VBA-Code, um später die Logik hinter den Funktionen besser nachvollziehen zu können.

  • Testen in verschiedenen Excel-Versionen: Stelle sicher, dass dein VBA-Code in verschiedenen Versionen von Excel (z.B. Excel 2016, 2019, und Microsoft 365) funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich den Druckbereich in Excel festlegen? Gehe zu „Seitenlayout“ > „Druckbereich“ > „Druckbereich festlegen“ und wähle die Zellen aus, die du im Druckbereich haben möchtest.

2. Was sind die gestrichelten Linien in Excel? Die gestrichelten Linien zeigen an, wo die Seitenumbrüche für den Druck beginnen. Du kannst die Ansicht aktivieren, um diese Linien zu sehen, indem du zu „Seitenlayout“ > „Seitenansicht“ wechselst.

3. Wie kann ich eine MsgBox in Excel VBA anpassen? Du kannst den Text in der MsgBox anpassen, indem du den Text innerhalb der Anführungszeichen im MsgBox Befehl änderst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige