Excel enthält eine Arbeitsblattfunktion (ROMAN), mit der Sie arabische Zahlen in römische Zahlen umwandeln können. Sie fragen sich vielleicht, ob es eine solche Funktion gibt, mit der Sie römische Ziffern als Seitenzahlen auf einem Ausdruck drucken können.

Es gibt keine integrierte Funktion, mit der Sie dies tun können, aber Sie können ein Makro erstellen, das den Trick ausführt. Betrachten Sie das folgende Makro:

Sub RomanPageNums()

Dim iPages As Integer     Dim J As Integer

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



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = Application.Roman(J)

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

Dieses Makro ermittelt zunächst, wie viele Seiten sich in Ihrem Ausdruck befinden, und weist der iPages-Variablen den Wert zu. Anschließend wird jede Seite durchlaufen und die Seitenzahl im mittleren Bereich der Fußzeile geändert, bevor jede Seite gedruckt wird. Die Seitenzahl wird festgelegt, indem die aktuelle Seitenzahl (J) mithilfe der ROMAN-Arbeitsblattfunktion in eine römische Zahl umgewandelt wird.

Wenn die römischen Ziffern in anderen Teilen der Fußzeile angezeigt werden sollen, können Sie die Eigenschaft .CenterFooter durch .LeftFooter oder .RightFooter ersetzen. Bei Bedarf können Sie auch .LeftHeader, .CenterHeader oder .RightHeader 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 (9362) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Römische Ziffern für Seitenzahlen.