Wenn Sie ein großes Arbeitsblatt haben, können Sie es in „Teilen“ ausdrucken

und ändern Sie automatisch die Informationen in der Kopf- oder Fußzeile jedes Teils. In Excel gibt es keine Möglichkeit, dies zu tun. Der beste Ansatz ist ein Makro, um Folgendes zu tun:

  1. Stellen Sie den Druckbereich basierend auf einem benannten Bereich ein.

  2. Stellen Sie die Kopf- oder Fußzeile basierend auf einem anderen benannten Bereich ein.

  3. Drucken Sie den Druckbereich.

  4. Wiederholen Sie die Schritte 1 bis 3 für jeden gewünschten Druckbereich.

Beachten Sie, dass für diese Schritte benannte Bereiche verwendet werden müssen. Sie können einen benannten Bereich für jeden Teil des Arbeitsblatts haben, den Sie drucken möchten, und einen benannten Bereich (der eine einzelne Zelle wäre), der die Kopf- oder Fußzeileninformationen darstellt, die Sie für jeden Druckbereich wünschen. Das folgende Makro implementiert die obigen Schritte:

Sub PrintRegions()

Dim x As Integer

'Change the dimension of the arrays to equal the number '   of printing areas you have     Dim Region(4) As String     Dim Head(4) As String

'Fill this array with the names of the ranges to be printed     Region(1) = "North"

Region(2) = "South"

Region(3) = "East"

Region(4) = "West"



'Fill this array with the names of the ranges to be in the header     Head(1) = "NorthHead"

Head(2) = "SouthHead"

Head(3) = "EastHead"

Head(4) = "WestHead"



For x = 1 To UBound(Region)

ActiveSheet.PageSetup.PrintArea = Range(Region(x)).Address          ActiveSheet.PageSetup.LeftHeader = Range(Head(x)).Value          ActiveWindow.SelectedSheets.PrintOut Copies:=1     Next End Sub

In diesem Beispiel werden nur vier Bereiche eines Arbeitsblatts ausgedruckt. Diese Gebiete werden als Bereiche bezeichnet: Nord, Süd, Ost und West. In ähnlicher Weise sind die benannten Bereiche – die wirklich einzelne Zellen sind -, die für den linken Teil der Header verwendet werden, NorthHead, SouthHead, EastHead und WestHead.

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

Dynamische Kopf- und Fußzeilen.