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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen