Ändern des Seitenzahlenformats (Microsoft Excel)
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: