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

atutom. Seitenumbruch

Forumthread: atutom. Seitenumbruch

atutom. Seitenumbruch
Ernst
Guten Abend Forum
Wie müsste der unten stehenden Code vereinfacht werden, dass ein Seitenumbruch in der aktiven Tabelle immer nach 25 Zeilen erfolgt?
Bitte um Hilfe
Ernst Dunkel 

Sub Seitenumbruch()
Dim i As Integer
For i = 1 To Sheets.Count 'ab Tabelle 1 bis Tabelle ----
Sheets(i).Rows(25).PageBreak = xlPageBreakManual
Sheets(i).Rows(50).PageBreak = xlPageBreakManual
Sheets(i).Rows(75).PageBreak = xlPageBreakManual
Next i
End Sub

Anzeige

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

Betreff
Benutzer
Anzeige
AW: atutom. Seitenumbruch
02.12.2009 20:57:02
werni
Hallo Ernst
Vielleich so?
Sub Seitenumbruch()
Dim i As Integer
x = 25
For j = 1 To Sheets.Count
For i = 1 To 5
Sheets(j).Rows(x).PageBreak = xlPageBreakManual
x = x + 25
Next i
x = 25
Next j
End Sub
Gruss Werner
AW: atutom. Seitenumbruch
02.12.2009 21:49:02
Ernst
Guten Abend Werner
vielen Dank für die Hilfe, Code funktioniert!
mfg
Ernst Dunkel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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