Makro um Pfad "hart" in Fusszeile einzutragen

Question

Hallo,

ich benötige einen Code-Schnipsel um den aktuellen Dateipfad über ein Makro hart in die Fusszeile von MS Excel (Version 2003) einzutragen.

Bisher verwende ich folgendes in einem Makro, um die normale Pfad-Angabe in die Fußzeile einzutragen. Der Pfad ändert sich jedoch bei jedem, der die Datei per Email empfangen hat und druckt.

With ActiveSheet.PageSetup
.LeftFooter = "&8Druckdatum: &D" & Chr(10) & "Name Abteilung" & Chr(10) & ""
.CenterFooter = "&8Seite &P von &N" & Chr(10) & "- Intern -" & Chr(10) & ""
.RightFooter = "&8&A" & Chr(10) & "" & Chr(10) & "&7&Z&F"
End With

Wie müßte die Fußzeile aussehen, wenn der Pfad einmalig bei Ausführen des Makros "hart" eingetragen wird?

Schöne Grüße
ara78

Answer 1

Hallo,

da ein Austesten dieses Bruchstücks schlecht machbar ist

With ActiveSheet.PageSetup
.LeftFooter = "&8Druckdatum: &D" & Chr(10) & "Name Abteilung" & Chr(10) & ""
.CenterFooter = "&8Seite &P von &N" & Chr(10) & "- Intern -" & Chr(10) & ""
.RightFooter = "&8&A" & Chr(10) & "" & Chr(10) & "&7&Z&F"
End With

an den beiden fett gekennzeichneten Stellen stehen die Angaben zum Verzeichnis und da müsste man ändern und austesten

Gruß

Helmut

Answer 2

Hallo,

das folgende Makro schreibt den Pfad und den Dateinamen in die Fußzeile:

Sub Fuß_Mit_UPfad()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
End Sub

Falls du nur den aktuellen Pfad brauchst dann so:

Sub Fuß_Mit_UPfad()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path
End Sub

Gruß

M.O.

Answer 3

Hallo ara 78,
vielleicht währe das eine Lösung:

Sub PfadInFusszeile()
Worksheets(1).PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub

Gruß
fedjo

Answer 4

Hallo,

danke, die Antwort von M.O. hat mein Problem gelöst. Das war genau der Codeschnipsel der mir gefehlt hat :-)

Schöne Grüße
ara78

Answer 5

würde gern die antwort von M.O. als "lösung" kennzeichnen, aber dummerweise hab ich diese antwort zuerst als "gute antwort" bewertet und jetzt geht's nicht mehr... gibt's da abhilfe bzw. könnte das evtl. ein admin machen?