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.

Es gibt jedoch einige Problemumgehungen, die Sie verwenden können.

Versuchen Sie zunächst, das Report Manager-Add-In für Excel zu verwenden. Mit diesem Add-In können Sie verschiedene Ansichten definieren und die Reihenfolge auswählen, in der diese Ansichten gedruckt werden. Jede Ansicht kann auch eindeutige Kopf- und Fußzeilen haben. Dies bedeutet, dass Sie eine Ansicht der ersten Seite – mit der gewünschten Fußzeile – und eine Ansicht der nachfolgenden Seiten mit eigenen Kopf- und Fußzeilen einrichten können. Anschließend drucken Sie den Bericht mit dem Berichts-Manager, um die gewünschte Ausgabe zu erhalten.

Beachten Sie, dass das Report Manager-Add-In zuletzt mit Excel 2002 verteilt wurde. Wenn Sie Excel 2003 verwenden, können Sie den Report Manager weiterhin verwenden. In diesem Knowledge Base-Artikel wird erläutert, wie Sie es verwenden können:

http://support.microsoft.com/kb/873209

Eine andere Problemumgehung besteht darin, ein Makro zum Drucken zu verwenden. 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 (2187) 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:

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