Seitenzahl in Wiederholungszeile
Timo
ich hoffe es kann mir jemand weiterhelfen.
Ich habe eine Exceldatei, in der ich die ersten 6 Zeilen als Wiederholungszeilen für den Druckbereich definiert habe. Nun möchte ich gerne, dass in Zelle L6 auf der ersten Seite und an der selben Stelle auf allen weiteren ausgedruckten Seiten ebenfalls die Seitenzahlen.
Für die erste Seite funktioniert das auch, ich habe im Netz dazu ein Makro gefunden. Allerdings schreibt er auf den Folgeseiten das Datum an die falsche Stelle, weil er die Wiederholungszeilen nicht berücksichtigt.
Geht das zu ändern?
Wenn ja wie?
Danke schon einmal für Eure Hilfe.
Timo
Hier noch mein bisheriger Code:
Sub Seite_x_von_y_Seiten()
Dim Letzte_Zeile As Integer, Einzelseite As Integer, _
Gesamtseitenzahl As String
''Einträge in Spalte I löschen
'Columns("Q").ClearContents
'Gesamtanzahl der Druckseiten ermitteln und in Variable
'"Gesamtseitenzahl" schreiben
Gesamtseitenzahl = ExecuteExcel4Macro("Get.Document(50)")
''Letzte beschriebene Zelle in Spalte A ermitteln und die Zeilenzahl
''in Variable "Letzte_Zeile" schreiben
Letzte_Zeile = Cells(Rows.Count, 6).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:O" & Letzte_Zeile).Address
ActiveSheet.DisplayAutomaticPageBreaks = True
'In Zelle L6 den Text "Seite 1 von -hier dann die Gesamtseitenanzahl-
'Seiten" eintragen
Cells(6, 12) = "Seite 1 von " & Gesamtseitenzahl & " Seiten"
'For/Next Schleife zum Eintragen der Seitenzahl auf jedem Druckblatt
For Einzelseite = 1 To ActiveSheet.HPageBreaks.Count
'In jeder 4. Zeile eines neuen Blattes die Seitenzahl eintragen
ActiveSheet.HPageBreaks(Einzelseite) _
.Location.Offset(3, 6).Value = "Seite " & _
Einzelseite + 1 & " von " & Gesamtseitenzahl & " Seiten"
Next Einzelseite
End Sub