Wenn Sie ein Arbeitsblatt drucken, kann Excel eine Vielzahl von Elementen in die Kopf- oder Fußzeile des Ausdrucks aufnehmen. Sie können unter anderem die Seitenzahl der zu druckenden Seite angeben. Diese Seitenzahl ist ziemlich banal – es ist der arabische Wert der Seite, die gedruckt wird, wie in 1, 2, 3 usw.

Einige Menschen sehnen sich möglicherweise nach einer Möglichkeit, Seitenbuchstaben (A, B, C) anstelle von Seitenzahlen (1, 2, 3) zu drucken. In Excel gibt es keine Möglichkeit, dies zu tun. Sie können jedoch ein Makro entwickeln, das den Buchstaben ermittelt, der einer Seite zugeordnet werden soll, und diesen Buchstaben dann in der Fußzeile verwenden. Das folgende Makro macht genau das:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' 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 = sArr(J)

' Print page(J)

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

Zuerst ermittelt das Makro das Buchstabenäquivalent der Seitenzahlen und fügt sie in ein Array ein. In diesem Fall werden bis zu 702 Seitenbuchstaben berechnet, was für jeden Druckauftrag mehr als ausreichend sein sollte. Die Buchstaben sind A bis Z, dann AA bis AZ, BA bis BZ und bis ZA bis ZZ.

Anschließend wird iPages auf die Anzahl der Seiten im Arbeitsblatt eingestellt. Schließlich wird jede Seite einzeln gedruckt, wobei der Seitenbuchstabe in der mittleren Fußzeile des Arbeitsblatts platziert wird. Wenn Sie den Seitenbuchstaben an einer anderen Stelle haben möchten, verwenden Sie .LeftFooter oder .RightFooter anstelle der .CenterFooter-Eigenschaft. (Falls gewünscht, können Sie auch .LeftHeader, .CenterHeader und .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.

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

Dieser Tipp (2126) 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: