Neue Seite bei Monatswechsel
Claudia
und bei diesem Code bräuchte ich ebenfalls Hilfe!
Private Sub Zeilenumbruch_nach_Werteänderung()
Dim i As Long
Dim Wert1 As Integer
Wert1 = InputBox("Bitte Spalten-Nr. eingeben!", "Spalten-Nr.", "1")
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
.ResetAllPageBreaks
For i = 1 To .Cells(.Rows.Count, Wert1).End(xlUp).Row
If .Cells(i + 1, Wert1) .Cells(i, Wert1) Then
.HPageBreaks.Add .Cells(i + 1, Wert1)
End If
Next i
End With
ActiveWindow.View = xlNormalView
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveWindow.ScrollRow = 2
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Kann jemand den Code so modifzieren, dass ein neues Blatt bei einem Monatswechsel erfolgt?
In Spalte A (ab Zeile 3 bis Ende offen) stehen die Wochentage (TT.MM.JJJJ).
Liebe Grüße
Claudia
PS: danke vorab für die Hilfe!