Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Neue Zeilen einfügen bis neuer Seitenumbruch

Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan
Hallo zusammen
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden.
Das bestehende Makro setzt die unterste Zeile aber immer auf eine neue Seite. Ich weiss nicht was ich falsch mache:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LetzteZeile As Long
With ActiveSheet
LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
'Position letzter Seitenwechsel prüfen
If .HPageBreaks(.HPageBreaks.Count).Location.Row 
Ich hoffe, es kann mir jemand behilflich sein.
Gruss
Stefan
Muster-Datei: https://www.herber.de/bbs/user/71098.xls

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

Betreff
Benutzer
Anzeige
AW: Neue Zeilen einfügen bis neuer Seitenumbruch
17.08.2010 13:11:00
Klaus
Hallo Stefan,
der neue HPagereaks Punkt wird erst ausgelöst, sobald die Zeilen über das Blatt hinaus verschoben sind.
Unschöner Workaround (mir fällt aber nix besseres ein): Lösche eine Zeile, wenn das Makro fertig ist.
zwischen "Loop Until" und "Application.screenupdating":
.Rows(LetzteZeile - 5).Delete shift:=xlUp
Grüße,
Klaus M.vdT.
AW: Neue Zeilen einfügen bis neuer Seitenumbruch
17.08.2010 15:05:08
Stefan
Hallo Klaus
Danke für den Hinweis. Die Möglichkeit mit der Zeile löschen funktioniert.
Gruss
Stefan
danke für die Rückmeldung! o.w.T.
18.08.2010 10:33:43
Klaus
.
Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige