wieder einmal das Thema 'Zellinhalt in der Fusszeile'.
ich habe folgendes aus dem archiv:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Worksheets("Tabelle 1").Range("A1")
End Sub
Zellwert A1 hat das Format (Bsp:) 12345-xy
Nun sollte aber in jeder Fusszele vor dem Zellinhalt noch die Phrase: 'Dossier-Nr.:' erscheinen. Obiges Makro ersetzt jede vorher manuell erfasste Fusszeile.
Besten Dank für Eure Hilfe im Voraus.
Grüsse
sam