Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenumbruch

Seitenumbruch
11.11.2005 12:08:37
Helmut
hallo,
ich möchte in einem EXCEL-sheet Seitenumbrüche in bestimmten Zeilen (markiert durch "A" in Spalte A) generieren. Das geht auch mit folgendem Makro, aber zusätzlich zu "meinen" Umbrüchen generiert EXCEL noch eigene (offenbar in den Zeilen, in denen entsprechend der Seitenskalierung die "normalen" Seitenumbrüche wirksam werden)
wie kann ich´s lösen
Hpagebreak Makro
' Makro am 10.11.2005 von MGHOMMEN aufgezeichnet'
Dim iRow As Integer
For iRow = WorksheetFunction.CountA(Columns(1)) To 1 Step -1
If Cells(iRow, 1).Value = "A" Then
Tabelle2.HPageBreaks.Add Cells(iRow, 1)
End If
Next iRow
End Sub
Helmut
Helmut

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch
12.11.2005 23:33:28
Sebastian
Hallo Helmut,
wenn du den Seitenumbruch größer haben willst, als Excel vorschlägt, dann wird die Seite verkleinert dargestellt.
Das kannst du aber sicher nicht wollen.
Ich habe eine Überschrift in Spalte B
In meinem Makro wird der Seitenumbruch so verlegt, dass die Überschrift nicht auf der vorhergehenden Seite landet. Vielleicht kannst du was mit anfangen:


Private Sub Zeilenumbruch()
'On Error Resume Next
Dim i%, p%
For i = 1 To ActiveSheet.HPageBreaks.Count
'Debug.Print ActiveSheet.HPageBreaks.Count
'Debug.Print ActiveSheet.HPageBreaks.Item(i).Location.Row
p = ActiveSheet.HPageBreaks.Item(i).Location.Row
If Cells(p - 1, 1) = "" And Cells(p - 1, 2) <> "" Then
    p = p - 1
End If
'Debug.Print p
ActiveSheet.HPageBreaks.Add before:=ActiveSheet.Range("A" & p)
Next
ActiveWindow.View = xlNormalView
End Sub


gruss wastl
Anzeige
AW: Seitenumbruch
14.11.2005 09:20:17
Helmut
hallo, Wastl,
zunächst vielen Dank für den Hinweis - werde das ´mal probieren. Ich möchte den Seitenumbruch im Übrigen nicht unbedingt grösser haben, sondern so, dass ein bestimmter Datenblock - dessen Umfang (Zeilen)variabel ist - jeweils auf eine Seite kommt. Werde erst mal Dein Makro ausprobieren.
Danke nochmal
Helmut

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige