Wenn Sie ein Arbeitsblatt erstellen, das eventuell gedruckt wird, möchten Sie möglicherweise auf der ersten Seite Ihres Dokuments eine andere Fußzeile verwenden als auf den nachfolgenden Seiten. Es gibt keine Möglichkeit, dies direkt in Excel zu tun, aber Sie können ein Makro verwenden, um die Aufgabe auszuführen.

Das folgende Makro legt die Fußzeilen für ein Arbeitsblatt fest, je nachdem, was gedruckt wird. Tatsächlich werden die Fußzeilen für die erste Seite festgelegt und diese Seite dann gedruckt. Dann werden die Fußzeilen für die anderen Seiten festgelegt und gedruckt.

Sub PrintSheet()

Dim sP1Left As String     Dim sP1Center As String     Dim sP1Right As String     Dim sP2Left As String     Dim sP2Center As String     Dim sP2Right As String

' Define first-page footers     sP1Left = "First page left"

sP1Center = "First page center"

sP1Right = "First page right"



' Define second-page footers     sP2Left = "Second page left"

sP2Center = "Second page center"

sP2Right = "Second page right"



' Set up and print first page     With ActiveSheet.PageSetup         .LeftFooter = sP1Left         .CenterFooter = sP1Center         .RightFooter = sP1Right     End With     ActiveSheet.PrintOut 1, 1

' Set up and print other pages     With ActiveSheet.PageSetup         .LeftFooter = sP2Left         .CenterFooter = sP2Center         .RightFooter = sP2Right     End With     ActiveSheet.PrintOut 2 End Sub

Um das Makro zu verwenden, müssen Sie lediglich die Fußzeilendefinitionen ändern.

Ändern Sie die Variablenwerte im Bereich „Fußzeilen für die erste Seite definieren“ und im Bereich „Fußzeilen für die zweite Seite definieren“, um genau die gewünschte Ausgabe zu erhalten.

_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 (11287) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Verwenden einer anderen Fußzeile auf sekundären Seiten.