habe eine Tabelle dieser Art
Datum__Anrufe__Besuche ...
1.1.
2.1.
3.1
usw
nun habe ich Zeilenumbrüche für jeden Monat eingefügt
gibt es eine Möglichkeit, dass man dann im Tebellenkopf den entsprechenden Monat angezeigt bekommt
=TEXT(HEUTE();"MMMM")
Sub Druck()
Dim Zelle1 As Range
Dim Zelle2 As Range
Set Zelle2 = Range("A4")
Set Zelle1 = Range("A4")
Do
If Format(Zelle2.Offset(1, 0).Value, "YYYYMM") Format(Zelle1.Value, "YYYYMM") Then
ActiveSheet.PageSetup.LeftHeader = Format(Zelle1.Value, "MMMM")
Range(Zelle1, Zelle2).EntireRow.PrintOut
Set Zelle1 = Zelle2.Offset(1, 0)
If Zelle1.Value = "" Then Exit Do
End If
Set Zelle2 = Zelle2.Offset(1, 0)
Loop
End Sub