Seitenumbruch am Monatsanfang

Bild

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

Bild


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


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Seitenumbruch am Monatsanfang"