Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenumbruch am Monatsanfang

Seitenumbruch am Monatsanfang
28.11.2003 16:26:01
Remo
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

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

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch am Monatsanfang
28.11.2003 16:56:10
Reinhard
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
AW: Seitenumbruch am Monatsanfang
28.11.2003 16:58:50
Matthias G
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige