Excel: Zellinhalt in die Fusszeile übernehmen III

Verwenden Sie das Makro wie in Webcode 29814 beschrieben und ändern Sie in der Zeile die mit "ActiveSheet" anfängt den Bereich ab. Löschen Sie in dieser Zeile den Text "Tabelle1."

Beachten Sie auch hier, dass das Makro NICHT, bzw. nur auf dem aktiven Blatt ausgeführt wird, wenn Sie beim Drucken den Befehl "gesamte Arbeitsmappe" anwenden. Es muss jedes Blatt vorher 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 = Range("A1").Value

Next wks

End Sub

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