Dateipfad in Fusszeile?
Michael Gerling
bitte nicht meckern, falls die Frage hier schon x-mal beantwortet wurde.
In der Hilfe von Excel habe ich dazu nichts gefunden.
Ich möchte in der Fusszeile den Dateinamen UND Pfad haben.
Mit &[Datei] wird der Name der Datei angezeigt.
Mit &[Register] wird der Name der Mappe angezeigt.
Ich möchte aber, das in der Fusszeile z.B. steht:
c:\eigene dateien\excel\aktuell.xls
Kann mir jemand bitte helfen?
Vielen vielen Dank
Grüße,
Michael
Gerd Chalupecky
Du kannst folgendes Makro benutzen:
Sub FusszeileMitUPfad()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub
mfg
Gerd
Hajo
Aktueller Datenpfad in Kopf-/Fußzeile
'das geht mit folgender VBA-Zeile:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" &
ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
' Kopfzeile Links
Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path & "\"
'(nur Phad)
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
End Sub
Oder mal hier schauen
http://spotlight.de/zforen/amse/m/amse-1034161265-18110.html
Gruß Hajo
"Michael Gerling" <gerling...@t-online.de> schrieb im Newsbeitrag
news:b0s1po$o12$07$1...@news.t-online.com...
Michael Gerling
> Aktueller Datenpfad in Kopf-/Fußzeile
> 'das geht mit folgender VBA-Zeile:
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> ' Fußzeile Mitte
> ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" &
> ActiveSheet.Name '(Komplette Dateiname einschl. Phad + Register)
> ' Kopfzeile Links
> Worksheets("Tabelle1").PageSetup.LeftHeader = ThisWorkbook.Path &
"\"
> '(nur Phad)
> ' Left=Links; Center=Mitte; Right=Rechts
> ' Header=Kopfzeile; Footer=Fußzeile
> End Sub
Danke für das Listing.
Aber wie gebe ich das denn in meine Mappe ein?
Excel und VBA ist für mich noch "zu hoch".
Bisher bearbeite ich die Einstellung für meine Fussleiste unter:
Datei> Seite einrichten...> Kopfzeile/Fusszeile
Michael
Monika Weber
> Danke für das Listing.
> Aber wie gebe ich das denn in meine Mappe ein?
> Excel und VBA ist für mich noch "zu hoch".
Wechsle in die VBA- Umgebung: Alt + F11
Füge ein Modul ein: "Einfügen | Modul"
Kopiere die Codezeilen da rein
Führe den Code aus: F5
Das ist schon alles ... verlasse die VBA-Umgebung
Alt + F4
> Bisher bearbeite ich die Einstellung für meine Fussleiste unter:
> Datei> Seite einrichten...> Kopfzeile/Fusszeile
Dort kriegst Du den Pfad nicht rein, ausser Du tippst ihn
von Hand ein.
--
Ich hoffe, dass Dir das weiterhilft.
"Es liebs Grüessli" aus der Schweiz
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch / http://excel.codebooks.de
Kathleen
schau mal hier:
http://www.add-in-world.com/katalog/pfadinfo2001/
Viele Grüße
Kathleen
>-----Originalnachricht-----
>.
>
Hajo
Drücke Alt + F11 und kopiere den Code unter Deiner Datei in
DieseArbeitsmappe. Das ist eine automatische Prozedur die vor dem Drucken
ausgeführt wird.
Gruß Hajo
"Michael Gerling" <gerling...@t-online.de> schrieb im Newsbeitrag
news:OFhmiZAxCHA.1656@TK2MSFTNGP09...
Baerbel Meyer
mich hat dieser Newsbeitrag auch interessiert. Ich habe jedoch ein Problem:
Wenn ich F5 drücke erscheint ein Fenster zur Eingabe eines Makronamens.
Was muss ich hier eingeben?
Gruß Bärbel
"Monika Weber" <monika...@mvps.org> schrieb im Newsbeitrag
news:ut$J$SDxCHA.2372@TK2MSFTNGP12...
Melanie Breden
"Baerbel Meyer" schrieb:
> mich hat dieser Newsbeitrag auch interessiert. Ich habe jedoch ein Problem:
> Wenn ich F5 drücke erscheint ein Fenster zur Eingabe eines Makronamens.
> Was muss ich hier eingeben?
stelle den Curser in den Code des Makros und drücke >>F5<< damit der Code komplett durchlaufen wird.
Mit >>F8<< wird der Code schrittweise ausgeführt.
mit Gruß
Melanie
____________________
Melanie Breden
[Microsoft MVP für Excel]