Microsoft Excel

Herbers Excel/VBA-Archiv

atutom. Seitenumbruch | Herbers Excel-Forum


Betrifft: atutom. Seitenumbruch von: Ernst Dunkel
Geschrieben am: 02.12.2009 20:24:33

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

  

Betrifft: AW: atutom. Seitenumbruch von: werni
Geschrieben am: 02.12.2009 20:57:02

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


  

Betrifft: AW: atutom. Seitenumbruch von: Ernst Dunkel
Geschrieben am: 02.12.2009 21:49:02

Guten Abend Werner
vielen Dank für die Hilfe, Code funktioniert!

mfg

Ernst Dunkel


Beiträge aus den Excel-Beispielen zum Thema "atutom. Seitenumbruch"