Seitenumbruch am Monatsanfang

• Seitenumbruch am Monatsanfang von Remo vom 28.11.2003 16:26:01
  • AW: Seitenumbruch am Monatsanfang - von Reinhard am 28.11.2003 16:56:10
  • AW: Seitenumbruch am Monatsanfang - von Matthias G am 28.11.2003 16:58:50

Betrifft: Seitenumbruch am Monatsanfang
von: Remo
Geschrieben am: 28.11.2003 16:26:01
Hallo
Wie kann ich in einem Excelsheet mit vertikalem Kalender, jeder Tag des Jahres in einer neuen Zeil, am ersten des Monats einen Seitenumbruch erzwingen ?
Vielen Dank für eure Hilfe
Remo

Betrifft: AW: Seitenumbruch am Monatsanfang
von: Reinhard
Geschrieben am: 28.11.2003 16:56:10
Hi Remo,

Sub test()
With Worksheets("Tabelle1")
For x = 1 To .Range("A65536").Rows.End(xlUp).Row
If Day(.Cells(x, 1)) = 1 And x <> 1 Then HPageBreaks.Add before:=.Cells(x, 1)
Next x
End With
End Sub

Gruß
Reinhard

Betrifft: AW: Seitenumbruch am Monatsanfang
von: Matthias G
Geschrieben am: 28.11.2003 16:58:50
Hallo Remo,
so geht's

Sub Page()
Dim z As Long
Application.ScreenUpdating = False
For z = 2 To Range("A65535").End(xlUp).Row
If Day(Cells(z, 1).Value) = 1 Then
Rows(z).PageBreak = xlPageBreakManual
Else
Rows(z).PageBreak = xlPageBreakNone
End If
Next z
Application.ScreenUpdating = True
End Sub

Die else-Zeile kannst du weglassen, wenn keine evtl. vorhandene Zeilenumbrüch gelöscht werden müssen.

Gruß
Matthias

Excel-Beispiele zum Thema " Seitenumbruch am Monatsanfang"
Vertikalen Seitenumbruch verhindern	Seitenumbruch ermitteln und Übertrag erstellen
Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen	Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen
Bei Doppelklick zum Monatsanfang springen