ist es möglich in Excel in der Kopf-/Fußnote den Inhalt einer Zelle anzeigen zu lassen?
Gruß,
Boris
Sub kopfundFusszeile()
ActiveSheet.PageSetup.CenterHeader = [A1] 'Kopfzeile
ActiveSheet.PageSetup.CenterFooter = [B1] 'Fußzeile
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub KopfFussZeile()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Select Case Blatt.Name
Case "Tabelle1", "Tabelle2"
Blatt.PageSetup.CenterFooter = Blatt.Range("A5").Value & " " & Blatt.Range("A6").Text
Case "Tabelle3"
Blatt.PageSetup.CenterFooter = Blatt.Range("B10").Value
Case Else
'do nothing
End Select
Next
End Sub