Excel 5.0 Dateiname & Pfad

Computer: Software & Programmierung Office Software
1

Wie ich dafür sorge, daß der Dateiname in der Fußzeile angezeigt wird ist klar.
Doch wie schaffe ich es auch den ganzen Pfad
z. B. c:\eigene Dateien\Datei.xls anzeigen zu lassen???
Ich freue mich auf jeden superschnellen Tipp
Danke
Heike

2

Hallo Heike,

da Excel dies nicht alleine kann, musst Du ein einfaches Makro schreiben. Dafür kannst Du dann ein Symbol in die Symbolleiste setzen.

Hier ist ein Vorschlag, der die gesamten Kopf- und Fußzeilen formatiert. Falls Du Fragen zu den einzelnen Formatierungen hast frag einfach nach.

Sub Kopf_FußzeilenEinrichten()

Pfad = ActiveWorkbook.Path

With ActiveSheet.PageSetup
.LeftHeader = „“
.CenterHeader = „“
.RightHeader = „&8&D“
.LeftFooter = „&8“ & Pfad & „&8&8&F - &8&A“
.CenterFooter = „“
.RightFooter = „&8Seite &8&amp:stuck_out_tongue_winking_eye: &8von &8&N“
End With

End Sub

Du musst nur darauf achten, dass sich die Pfadangabe nicht automatisch ändert, wenn Du die Datei in ein anderes Verzeichnis verschiebst, da es keine Variable wie die Datei und Seitenbezeichnung ist. Also Makro dann nochmals starten.

Gruß
Tobias

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Du musst nur darauf achten, dass sich die
Pfadangabe nicht automatisch ändert, wenn
Du die Datei in ein anderes Verzeichnis
verschiebst, da es keine Variable wie die
Datei und Seitenbezeichnung ist. Also
Makro dann nochmals starten.

Vorerst herzlichen Dank. Irgendetwas tut das Makro. Doch nach dem Speichern stimmt die Pfadangabe nicht, Dateiname ist jedoch vorhanden. Bei nochmaligem Ausführen des Makros ist es dann ok. Wolltest Du mir das mit Deiner obigen Erklärung sagen? Sorry, aber ich verstehe nicht was es bedeutet. Muß ich erst speichern und dann das Makro ausführen?
Heike (Makroanfänger)

4

Wolltest Du mir das mit Deiner obigen
Erklärung sagen? Sorry, aber ich verstehe
nicht was es bedeutet. Muß ich erst
speichern und dann das Makro ausführen?
Heike (Makroanfänger)

Erst ausführen, dann speichern.
Ich werde Dir eine Mail mit einer genauen Erklärung schreiben.

Tobias

5

Hi Heike,

zur not geht auch noch diese funktion in die letzte zelle schreiben:
=ZELLE(„dateiname“)

Gruß
Tom