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.WorksheetFunction.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.

Der Code im RomanPageNums-Makro funktioniert in allen neueren Versionen von Excel. Wenn Sie Excel 2000 oder höher verwenden, können Sie auch die tatsächliche Zeile, in der die Fußzeile festgelegt ist, durch den folgenden Code ersetzen:

.PageSetup.CenterFooter = Application.Roman(J)

_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 (2518) 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:

Römische Ziffern für Seitenzahlen.