Wendy möchte Seitenzahlen in die Kopfzeile ihres Arbeitsblattausdrucks aufnehmen, jedoch mit einer Wendung – Seite 21A auf Seite 1, Seite 21B auf Seite 2, Seite 21C auf Seite 3 usw. Sie fragt sich, wie sie eine solche Seitennummerierung erstellen soll planen.

Es gibt einige Möglichkeiten, um dieses Problem zu lösen, die alle die Verwendung von Makros beinhalten. Wenn Sie tatsächlich alle Arbeitsblätter in der aktuellen Arbeitsmappe drucken möchten und keines dieser Arbeitsblätter mehr als eine Seite lang ist (beim Drucken), setzt das folgende Makro den mittleren Abschnitt der Kopfzeile wie gewünscht:

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

Beachten Sie, dass das Makro eigentlich nichts druckt. Alles, was es tut, ist, die Header-Informationen zu ändern. Wenn Sie wirklich nur das aktuelle Arbeitsblatt ausdrucken möchten und für dieses Arbeitsblatt mehrere Seiten auf dem Ausdruck erforderlich sind, sollte Folgendes einwandfrei funktionieren:

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

Dieses Makro berechnet Seiten basierend auf der Position der horizontalen (HPageBreaks) und vertikalen (VPageBreaks) Seitenumbrüche auf dem Ausdruck.

Sie können auch versuchen, einfach mit der Pages-Sammlung zu arbeiten:

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

Sie sollten beachten, dass unabhängig vom gewählten Ansatz Probleme auftreten, wenn der Ausdruck mehr als 26 Seiten erfordert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12548) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.