Gruppe
Druck
Problem
Vor dem Drucken wird über das BeforePrintEreignis der Text gem. Spalte B eingetragen.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then
ActiveSheet.PageSetup.LeftFooter = Range("B1").Value
ActiveSheet.PageSetup.CenterFooter = Range("B2").Value
ActiveSheet.PageSetup.RightFooter = Range("B3").Value
Else
ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.CenterFooter = ""
ActiveSheet.PageSetup.RightFooter = ""
End If
End Sub