Sub KoFuZeile()
Dim Dateiname As String
Dim i, k As Integer
Dim Projekt As String
Dim Revision As Integer
Dim Bearbeiter As String
Dim Aenderungsdatum As String
k = ActiveWorkbook.Sheets.Count 'Letztes Arbeitsblatt
Bearbeiter = Worksheets("Navigation + Drucken").Range("C7")
Projekt = Worksheets("Navigation + Drucken").Range("C9")
Revision = Worksheets("Navigation + Drucken").Range("C3")
Dateiname = Application.ActiveWorkbook.Name
Aenderungsdatum = Worksheets("Navigation + Drucken").Range("C5")
Application.ScreenUpdating = False
For i = 1 To k 'Erstes bis letztes Arbeitsblatt
With Sheets(i).PageSetup
.RightFooter = ""
.RightFooter = Dateiname & Chr(10) & "| Rev. " & Revision & " | " _
& Aenderungsdatum & " | " & Bearbeiter & " |" & Chr(10) & "Druckdatum: &D"
.RightHeader = ""
.RightHeader = "&16&BProjekt: " & Projekt
End With
Next i
Application.ScreenUpdating = True
End Sub
An einer Zentralen Stelle werden die Daten eingegeben, und dann in Kopf und Fußzeile übernommen.
Die Mappe hat 17 Blätter, das Aktualisieren dauert ca. 30 Sekunden.
Hat jemand einen Tuning-Tip?
Vielen Dank!
Cristian