Eine der langjährigen Beschwerden über Excel ist, dass es keine sehr robuste Methode zum Erstellen und Verwalten von Kopf- und Fußzeilen gibt.

Stellen Sie sich das folgende Szenario vor: Sie möchten Ihr Arbeitsblatt drucken, haben jedoch nur Seitenzahlen, die auf der zweiten Seite beginnen.

In Excel gibt es keine intrinsische Methode, um mit dieser Situation umzugehen. Es gibt einige Problemumgehungen. Sie können beispielsweise Ihre erste Seite in ein Arbeitsblatt (ohne Kopf- oder Fußzeilen) und die nachfolgenden Seiten in ein anderes Arbeitsblatt (einschließlich Kopf- und Fußzeilen) einfügen. Sie können dann die beiden Arbeitsblätter in einem Durchgang drucken und Ihr Ziel effektiv erreichen.

Wenn Sie den Berichts-Manager installiert haben, können Sie damit verschiedene Berichte basierend auf den Informationen in Ihrem Arbeitsblatt zusammenstellen.

Die Verwendung des Berichts-Managers wurde in anderen Ausgaben von ExcelTips behandelt. Das Report Manager-Add-In wurde zuletzt mit Excel 2002 verteilt, kann jedoch weiterhin in Excel 2003 verwendet werden.

Keiner dieser Ansätze funktioniert jedoch für alle Situationen. Beispielsweise können Sie Ihren Ausdruck möglicherweise nicht in mehrere Arbeitsblätter aufteilen, oder Sie haben möglicherweise nicht viel Erfahrung mit dem Berichts-Manager (oder Sie möchten ihn nicht herunterladen und installieren). Wenn Sie möchten, können Sie ein Makro erstellen, das Ihr Arbeitsblatt nach Ihren Wünschen druckt.

Das folgende Makro, GoodPrint, druckt die erste Seite eines Arbeitsblatts ohne Kopf- oder Fußzeilen und dann alle nachfolgenden Seiten wie gewohnt.

Sub GoodPrint()

Dim hlft As String     Dim hctr As String     Dim hrgt As String     Dim flft As String     Dim fctr As String     Dim frgt As String

'save current header     hlft = ActiveSheet.PageSetup.LeftHeader     hctr = ActiveSheet.PageSetup.CenterHeader     hrgt = ActiveSheet.PageSetup.RightHeader

'save current footer     flft = ActiveSheet.PageSetup.LeftFooter     fctr = ActiveSheet.PageSetup.CenterFooter     frgt = ActiveSheet.PageSetup.RightFooter

'remove header and footer     With ActiveSheet.PageSetup         .CenterHeader = ""

.RightHeader = ""

.LeftHeader = ""

.CenterFooter = ""

.RightFooter = ""

.LeftFooter = ""

End With

'print page one     ActiveSheet.PrintOut 1, 1

'restore header and footer     With ActiveSheet.PageSetup         .LeftHeader = hlft         .CenterHeader = hctr         .RightHeader = hrgt         .LeftFooter = flft         .CenterFooter = fctr         .RightFooter = frgt     End With

'print the rest of the pages     ActiveSheet.PrintOut 2 End Sub

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

Selektive Kopf- und Fußzeilen.