ich weiß, dass es geht, aber ich weiß nicht mehr wie:
Ich möchte nicht nur den Dateinamen (das kann ich :-) ) in die Kopfzeile bugsieren, sondern auch den Pfad dazu angeben, wie war das noch?
Danke Tanja
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" & ActiveSheet.Name (Komplette Dateiname einschl. Phad + Register)
' Kopfzeile Links
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" (nur Phad)
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen