Habe folgendes Makro geschrieben um immer wiederkehrende Informationen in die Textzeile zu schreiben:
Sub rewe_fussnote()
ScreenUpdating = False
pfad_text = ActiveWorkbook.Path 'liefert den kompletten Pfad
With ActiveSheet.PageSetup
'.LinkeKopfzeile
.LeftHeader = "&8Firma gmbh" & Chr(10) & "Abteilung XX"
.CenterHeader = "&8" & ActiveSheet.Name
'.RechteKopfzeile
.RightHeader = "&8Essen, den " & Chr(10) & "IT/ Herr XX/ -Durchwahl" & Chr(10) & "Seite &P/ &N"
'.LeftFooter = "&6" & pfad_text & "\" & ("&F")
.LeftFooter = "&8&D"
.CenterFooter = ""
.RightFooter = ""
'.LinkerRand = Anwendung.ZollInPunkte(0,787401575)
'.RechterRand = Anwendung.ZollInPunkte(0,787401575)
'.ObererRand = Anwendung.ZollInPunkte(0,984251969)
'.UntererRand = Anwendung.ZollInPunkte(0,984251969)
'.Kopfzeilenrand = Anwendung.ZollInPunkte(0,511811023)
'.Fusszeilenrand = Anwendung.ZollInPunkte(0,511811023)
'.ZeilenSpaltenköpfeDrucken = Falsch
'.GitternetzlinienDrucken = Wahr
'.NotizenDrucken = Falsch
.CenterHorizontally = True
.CenterVertically = False
'.Ausrichtung = xlHochformat
'.Entwurfsqualität = Falsch
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
' .Zoom = 100
End With
ScreenUpdating = True
Danke für Eure Hilfe!