Excel: Zellinhalt in die Fusszeile übernehmen II

Dazu muss das Makro noch mit ein paar Zeilen ergänzt werden.

Sie finden das geänderte Makro am Ende dieses Artikels zum Kopieren.

Das Makro wird ebenfalls im Visualbasic-Editor in "Diese Arbeitsmappe" eingefügt. Es wird ausgeführt, wenn sie ein Blatt drucken oder in der Seitenansicht ansehen.

Beachten Sie, dass es NICHT ausgeführt wird, bzw. nur auf dem aktiven Blatt ausgeführt wird, wenn Sie beim Drucken den Befehl "gesamte Arbeitsmappe" anwenden. Es muss jedes Blatt zuvor zumindest einmal in der Seitenansicht geöffnet worden sein. Sobald die Fusszeile eingetragen ist, bleibt sie natürlich bestehen, auch wenn Sie beim Druck "gesamte Arbeitsmappe" verwenden.

--------------------------------------------------------------

MAKRO ZUM KOPIEREN:

--------------------------------------------------------------

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim wks As Worksheet

For Each wks In Worksheets

ActiveSheet.PageSetup.LeftFooter = Tabelle1.Range("A1").Value

Next wks

End Sub

--------------------------------------------------------------