Jackie fragte, ob es eine Möglichkeit gebe, führende Nullen in die Seitenzahlen in einer Fußzeile aufzunehmen. Ihre Seitenzahlen müssen immer fünf Zeichen lang sein, bei Bedarf mit führenden Nullen, um die Länge auszufüllen. Somit wären die Seitenzahlen 00001, 00002 usw.

Excel bietet keine sehr gute Formatierung für seine Seitenzahlen. Eine (vielleicht die praktikabelste) Lösung besteht darin, jede Seite in Ihrem Arbeitsblatt einzeln zu drucken und dabei die Seitenzahl zu ändern. Dieses Makro verfolgt diesen Ansatz:

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

.PrintOut From:=J, To:=J         Next J     End With End Sub

Das Makro erkennt, wie viele Seiten sich im gesamten Ausdruck befinden, und durchläuft dann jede Seite dieses Ausdrucks. Vor dem individuellen Drucken jeder Seite wird die .CenterFooter-Eigenschaft einer formatierten Zeichenfolge gleichgesetzt, die die Seitenzahl mit führenden Nullen darstellt.

Sie können das Makro nach Bedarf ändern, um verschiedene Informationen in die Fußzeile einzufügen. Sie können den Bereich der Fußzeile auch ändern, indem Sie .LeftFooter oder .RightFooter anstelle von .CenterFooter verwenden.

_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 (3055) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Führende Nullen in Seitenzahlen.