Hallo zusammen,

ich habe ein Problem mit einer Vorlage die ich erstellt habe.

Ich möchte automatisch die Kopfzeile ausfüllen, was auch einmal funktioniert.
Ich ziehe mir aus einem extra Blatt die Revisionsnummer, das dazugehörige Datum und den Dateinamen. 

Wenn ich nun an verschiedenen Tabellenblätter eine Änderungen vornehme, werden die Daten auch entsprechend in den Kopf geschrieben aber nur dort, die anderen bleiben auf altem Stand.

Ich habe geschaut ob das Makro ausgeführt wird und das tut es. 
Ich wähle alle Tabellen an und gehe auf drucken. 
Unten einmal mein Code vielleicht kann mir jemand sagen wo ich hier einen Fehler mache.
Sobald ich eine Änderung vornehme an einem Blatt wird dieses aktualisiert. Aber es soillen alle aktualisiert wedren auch die, die ich nicht bearbeitet habe.

Ich rufe das Ganze folgendermaßen auf:
In der Arbeitsmappe über
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Header
End Sub

Das Modul das aufgerufen wird hat folgendes Makro:

Sub Header()
'*******************************************************Header update bei Print ***************************************************************************************************
Select Case ActiveSheet.Name
Case "Change History and Approvals", "Key"
Case Else

On Error GoTo Ende
   Application.ScreenUpdating = False
    Application.PrintCommunication = True
    With ActiveSheet.PageSetup
        .LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
        .CenterHeader = ""
        .RightHeader = "&G"
        .LeftFooter = ""
        .CenterFooter = "&""Arial,Fett""&9&K0070C0PFC" & Chr(10) & "Page &P of &N"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 98  '100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = False
    Application.ScreenUpdating = True
    
    End Select
Ende:
End Sub