Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim titel
If Sh.Name = "Tabelle1" Then Exit Sub
Set titel = Worksheets("Tabelle1!").Range("A1")
Sh.PageSetup.LeftHeader = titel
Sh.RightHeader = Range("Tabelle1!A2").Value
End Sub
Leider wird das Feld im Kopf nicht aktualisiert.
Danke für euere Antwort