Office: (Office 2010) Seitenumbrüche in anders Blatt kopieren

barbara_w · 15. Januar 2020

Hallo

habe ein sheet mit manuellen Seitenumbrüchen, unregelmäßig angeordnet.
Also zB vor den Zeilen 5, 31, 49, 60

Wie kann man diese mit vba in ein anderes sheet kopieren?

Druckbereich kopieren habe ich herausgefunden, ist ein Einzeiler:
wksZiel.PageSetup.PrintArea = wksQuell.PageSetup.PrintArea

Aber Seitenwechsel? Viel probiert, nichts gelungen.

LG,
Barbara

:)

hubert17 · 16. Januar 2020

Hallo Barbara,

Code:

ActiveSheet.HPageBreaks.Add before:=Rows(5)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

fügt ein Seitenumbruch vor Zeile 5 ein. Sollte bestimmt auch mit der Zuweisung zu einem anderen Tabellenblatt klappen.

Mase · 16. Januar 2020

Moin Barbara_w,

manchmal hilft auf die Schnelle auch der Einsatz des Makrorekorders.
Seltenst kann der Code 1:1 verwendet werden; aber zumindest siehst Du dann welche Methoden und Eigenschaften eingesetzt werden.

hubert17 · 16. Januar 2020

Hallo Barbara,

so sollte es funktionieren.
Code:

Sub Pagebreaks_kopieren()

Dim i As Long
Dim wksA As Worksheet
Set wksA = Worksheets("Tabelle1") 'anpassen
Dim wksB As Worksheet
Set wksB = Worksheets("Tabelle2") 'anpassen

ActiveWindow.View = xlPageBreakPreview

For i = 1 To wksA.HPageBreaks.Count

wksB.HPageBreaks.Add before:=Rows(wksA.HPageBreaks(i).Location.Row)

Next

ActiveWindow.View = xlNormalView

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

barbara_w · 17. Januar 2020

Danke für den Code, Hubert.

Habe etwas experimentiert. Pagebreaks einfügen ist ja gut, aber die bestehenden an ungewollter Stelle sollen ja auch noch weg. Also habe ich erst die bestehenden verschoben und die überzähligen gelöscht bzw. die fehlenden ergänzt (wie in Deinem Makro beschrieben).

Allerdings kann passieren, dass dabei ein automatischer pagebreak manchmal*) genau am Seitenrand entsteht. Das Ansprechen des letzen pagebreak innerhalb einer For-next-Schleife im Makro führt dann zu einer Fehlermeldung, weil der Index dann doch nicht existiert. Der VPageBreaks.Count ist um 1 zu hoch. Dieses seltsame Verhalten haben auch schon andere festgestellt.

*) Mit manchmal meine ich hier, bei manchen Sheets, aber bei Kopien dieser Sheets dann wieder nicht. Und dann wieder schon. Für mich nicht reproduzierbar.

Ich geb's auf und finde einen anderen Weg. Danke nochmals.

LG, Barbara

Flotter Feger · 17. Januar 2020

Hallo,

zuerst alle PageBreaks löschen und dann die aus der Quelle nach Ziel übertragen.

Ungefähr so ... die Selects müssen hier leider sein, da die ganze Sache sonst nicht geht.
Code:

Option Explicit

Sub TueEs()
Dim hp As HPageBreak
Dim vp As VPageBreak
Dim QW As Worksheet 'Quelle
Dim ZW As Worksheet 'Ziel

Set QW = Worksheets("Tabelle1")
Set ZW = Worksheets("Tabelle2")

With ZW
.Select
ActiveWindow.View = xlPageBreakPreview
If .HPageBreaks.Count > 0 Then
For Each hp In .HPageBreaks
.Range(hp.Location.Address).Select
hp.Delete
Next hp
End If
If .VPageBreaks.Count > 0 Then
For Each vp In .VPageBreaks
.Range(vp.Location.Address).Select
vp.Delete
Next vp
End If
ActiveWindow.View = xlNormalView

QW.Select
ActiveWindow.View = xlPageBreakPreview
For Each hp In QW.HPageBreaks
.VPageBreaks.Add vp.Location
Next hp

For Each vp In QW.VPageBreaks
.VPageBreaks.Add vp.Location
Next vp

ActiveWindow.View = xlNormalView
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sabina

barbara_w · 18. Januar 2020

Hallo Sabina,

danke für Dein Makro. Dein Code funktioniert leider nicht, zumindest nicht in meinem Dokument, siehe Anhang.

Beim Entfernen des automatischen h-Umbruchs bleibt das Makro hängen.

LG, Barbara

Uwe Küstner · 18. Januar 2020

Hallo Barbara,

Sabinas Code etwas abgespeckt und modifiziert: ;-)

Code:

Sub TueEs()
Dim hp As HPageBreak
Dim vp As VPageBreak
Dim QW As Worksheet 'Quelle
Dim ZW As Worksheet 'Ziel

Set QW = Worksheets("Tabelle1")
Set ZW = Worksheets("Tabelle2")

ZW.ResetAllPageBreaks

For Each hp In QW.HPageBreaks
ZW.HPageBreaks.Add ZW.Range(hp.Location.Address)
Next hp
For Each vp In QW.VPageBreaks
ZW.VPageBreaks.Add ZW.Range(vp.Location.Address)
Next vp
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Seitenumbrüche in anders Blatt kopieren

Seitenumbrüche in anders Blatt kopieren

Seitenumbrüche in anders Blatt kopieren

Seitenumbrüche in anders Blatt kopieren

Seitenumbrüche in anders Blatt kopieren

Seitenumbrüche in anders Blatt kopieren - Similar Threads - Seitenumbrüche Blatt kopieren

Seitenumbruch bei Worttrennung verhindern

Word generiert Seitenumbrüche beim Drucken

Bericht formatieren

Überschrift und Unterüberschrift im Inhaltzverzeichnis zusammen halten

Seitenumbruch

Seitenumbrüche im pdf verschoben

Einfügen, Verschieben oder Löschen von Seitenumbrüchen auf einem Blatt