Supportnet / Forum / Tabellenkalkulation
Funktion der Kopf- bzw. Fußzeile
Frage
Hallo zusammen!
Ich habe da gleich zwei Probleme:
a) Kann in der Fußzeile eines Tabellenblattes außer dem Dateinamen auch der dazugehörige Pfad angezeigt werden?
b) Die Kopf- bzw. Fußzeile sind mir zu groß. Nun ist es mir aber auch zu umständlich jedesmal die Zeilen händisch und bei jeder neuen Datei wieder auf's Neue zu ändern. Kann man dies irgendwie als Standard setzen?
Danke an Alle
Antwort 1 von Michael
Zu 1.) Ja, kann man.
Du erstellst eine Musterarbeitsmappe, mit allden Einstellungen und Formatierungen. Gespeichert wird sie als Name.xlt(Mustervorlage) im Startverzeichnis von Office, XStart.
Zu 2.) In der Vorlagenmappe erstellst du im VBA-Modul disen Code:
Sub kopfzeileMITPfad()
ActiveSheet.PageSetup.RightHeader = _
ActiveWorkbook.FullName
ActiveSheet.PrintPreview
End Sub
Dann kannst du ein Symbol in der Symbolleiste hinzufügen und diesen Code zuweisen. Wenn du auf das Symbol klickst, wird automatisch die Kopfzeile mit der Angabe gefüllt. Und das bei jeder Mappe!
Du erstellst eine Musterarbeitsmappe, mit allden Einstellungen und Formatierungen. Gespeichert wird sie als Name.xlt(Mustervorlage) im Startverzeichnis von Office, XStart.
Zu 2.) In der Vorlagenmappe erstellst du im VBA-Modul disen Code:
Sub kopfzeileMITPfad()
ActiveSheet.PageSetup.RightHeader = _
ActiveWorkbook.FullName
ActiveSheet.PrintPreview
End Sub
Dann kannst du ein Symbol in der Symbolleiste hinzufügen und diesen Code zuweisen. Wenn du auf das Symbol klickst, wird automatisch die Kopfzeile mit der Angabe gefüllt. Und das bei jeder Mappe!
Antwort 2 von MasterOfHardness
Und was muss ich in die Fußzeile eintragen, damit dort nicht nur der Dateiname sondern auch der dazugehörige Pfad erscheint?
Antwort 3 von Jürg
Den Pfad kann man erst ab Excel 2002 (XP) mit einem Symbol in der Kopf- oder Fusszeile einfügen. Für alle anderen Versionen gilt in der Tabelle:
=zelle("dateiname")
=zelle("dateiname")
Antwort 4 von MasterOfHardness
Ich danke allen. Leider hab' ich nur Excel 2000 zur Verfügung, daher nützt mir Antwort 3 leider nix.
Das mit dem VBA werd ich testen.
Gruß
Das mit dem VBA werd ich testen.
Gruß
Antwort 5 von want2cu
Hallo MasterOfHardness,
der Tipp von Michael ist vom Prinzip korrekt. Die Sache mit dem kompletten Pfadnamen in Kopf-oder Fusszeile klappt auch bei älteren Excel-Versionen.
Der Hinweis von Jürgen mit Zelle("Dateiname") ist zwar nicht falsch, aber im HInblick auf die Fragestellung nicht die richtige Lösung. Die Pfadangabe sollte nicht IN der Tabelle, sondern in Kopf- oder Fusszeile stehen.
Hier nochmals als Anleitungsbeispiel für die linke Fusszeile:
1. Öffnen Sie eine bereits existierende Arbeitsmappe oder erstellen Sie eine neue.
2. Drücken Sie Alt F11 um die VBA Entwicklungsumgebung zu öffnen
3. Drücken Sie Strg G, das Direktfenster öffnet sich
4. Geben Sie die folgende Anweisung ein:
ActiveSheet.Pagesetup.LeftFooter = "Datei: "& ActiveWorkbook.FullName
Die Anweisung muss in einer einzigen Zeile stehen!
5. Schliessen Sie die Eingabe mit der Eingabe-(Return-)Taste ab
6. Mit Alt F4 schliessen Sie die VBA Entwicklungsumgebung
CU
want2cu
der Tipp von Michael ist vom Prinzip korrekt. Die Sache mit dem kompletten Pfadnamen in Kopf-oder Fusszeile klappt auch bei älteren Excel-Versionen.
Der Hinweis von Jürgen mit Zelle("Dateiname") ist zwar nicht falsch, aber im HInblick auf die Fragestellung nicht die richtige Lösung. Die Pfadangabe sollte nicht IN der Tabelle, sondern in Kopf- oder Fusszeile stehen.
Hier nochmals als Anleitungsbeispiel für die linke Fusszeile:
1. Öffnen Sie eine bereits existierende Arbeitsmappe oder erstellen Sie eine neue.
2. Drücken Sie Alt F11 um die VBA Entwicklungsumgebung zu öffnen
3. Drücken Sie Strg G, das Direktfenster öffnet sich
4. Geben Sie die folgende Anweisung ein:
ActiveSheet.Pagesetup.LeftFooter = "Datei: "& ActiveWorkbook.FullName
Die Anweisung muss in einer einzigen Zeile stehen!
5. Schliessen Sie die Eingabe mit der Eingabe-(Return-)Taste ab
6. Mit Alt F4 schliessen Sie die VBA Entwicklungsumgebung
CU
want2cu
Antwort 6 von MasterOfHardness
@want2cu
Danke für die angebotene Lösung. Habe das probiert, leider funktioniert die Lösung so nicht (oder mach' ich da was falsch?). Der angezeigte Dateiname wird nicht aktualisiert wenn die Datei unter einem anderen Namen gespeichert wird und der Pfad wird auch nicht angezeigt.
Danke für die angebotene Lösung. Habe das probiert, leider funktioniert die Lösung so nicht (oder mach' ich da was falsch?). Der angezeigte Dateiname wird nicht aktualisiert wenn die Datei unter einem anderen Namen gespeichert wird und der Pfad wird auch nicht angezeigt.
Antwort 7 von Michael
Speichere mal eine Mappe in einem anderen Ordner als im Standardarbeitsordner, der in den Optionen unter Allgemein angegeben ist.
Es funktioniert bei mir auch nur, wenn ich die Mappe in einem anderen Ort ablege. Sonst steht da Mappe1, ohne Laufwerk:\Ordner\Dateiname.
Es funktioniert bei mir auch nur, wenn ich die Mappe in einem anderen Ort ablege. Sonst steht da Mappe1, ohne Laufwerk:\Ordner\Dateiname.
Antwort 8 von MasterOfHardness
Immer nur der Dateiname. Nix Pfad ;o(
Antwort 9 von want2cu
Hallo zusammen,
im Prinzip klappt es , wenn auch mit einer "kleinen" Ergänzung.
Damit der aktuelle Pfad gespeichert wird, sollte man ein Makro aufzeichnen und z.B. mit "pfadangabe" benennen:
Sub pfadangabe()
ActiveSheet.PageSetup.LeftFooter = "Datei: " & ActiveWorkbook.FullName
End Sub
Dann den o.a. Text eingeben und abspeichern. Damit ist das Makro dann imer wieder verfügbar.
Wenn die Mappe noch gar nicht gespeichert wurde, kann in der Fusszeile dann zunächst auch nur "Mappe1" stehen. Wenn die Mappe gespeichert wurde, wird durch Ausführen des Makros der komplette Pfad eingetragen.
Das Makro kann dann z.b. in einer Symbolleiste integriert werden, damit es einfacher abrufbar ist oder mit einer Tastenkombination belegt werden.
Ein Feedback, ob es jetzt geklappt hat, wäre ganz nett.
CU
want2cu
im Prinzip klappt es , wenn auch mit einer "kleinen" Ergänzung.
Damit der aktuelle Pfad gespeichert wird, sollte man ein Makro aufzeichnen und z.B. mit "pfadangabe" benennen:
Sub pfadangabe()
ActiveSheet.PageSetup.LeftFooter = "Datei: " & ActiveWorkbook.FullName
End Sub
Dann den o.a. Text eingeben und abspeichern. Damit ist das Makro dann imer wieder verfügbar.
Wenn die Mappe noch gar nicht gespeichert wurde, kann in der Fusszeile dann zunächst auch nur "Mappe1" stehen. Wenn die Mappe gespeichert wurde, wird durch Ausführen des Makros der komplette Pfad eingetragen.
Das Makro kann dann z.b. in einer Symbolleiste integriert werden, damit es einfacher abrufbar ist oder mit einer Tastenkombination belegt werden.
Ein Feedback, ob es jetzt geklappt hat, wäre ganz nett.
CU
want2cu
Antwort 10 von Michael
Meine Antwort 1 beeinhaltet das schon, want2cu!
Antwort 11 von want2cu
Hallo Michael,
deine Antwort 1 beinhaltete m.E. den VBA-Code für die Kopfzeile ohne Speicherung der Arbeitsmappe, so dass der Pfad eben nicht automitsich erscheint.
Gefragt war ja wohl eindeutig nach der Fusszeile. Und da muss es m.E. nicht HEADER sondern FOOTER heissen.
Ausserdem hatte es den Anschein, als wenn das Problem für MasterOfHardness trotz deiner Antwort nicht abschliessend gelöst war. So habe ich jedenfalls die folgenden Beiträge interpretiert.
Und mit dem "Standardarbeitsordner" hat die Problemlösung ebenfalls überhaupt nichts zu tun, sondern nur mit dem ABSPEICHERN, in welchem Ordner ist dabei völlig egal.
Anstatt in Antwort 10 so herumzuschreien, wäre für MasterOfHardness ein konstruktver Hinweis bestimmt förderlicher gewesen.
CU
want2cu
P.S. Anrede und Gruss nüssen nicht unbedingt sein, sind aber doch recht nett-iquette ;-)
deine Antwort 1 beinhaltete m.E. den VBA-Code für die Kopfzeile ohne Speicherung der Arbeitsmappe, so dass der Pfad eben nicht automitsich erscheint.
Gefragt war ja wohl eindeutig nach der Fusszeile. Und da muss es m.E. nicht HEADER sondern FOOTER heissen.
Ausserdem hatte es den Anschein, als wenn das Problem für MasterOfHardness trotz deiner Antwort nicht abschliessend gelöst war. So habe ich jedenfalls die folgenden Beiträge interpretiert.
Und mit dem "Standardarbeitsordner" hat die Problemlösung ebenfalls überhaupt nichts zu tun, sondern nur mit dem ABSPEICHERN, in welchem Ordner ist dabei völlig egal.
Anstatt in Antwort 10 so herumzuschreien, wäre für MasterOfHardness ein konstruktver Hinweis bestimmt förderlicher gewesen.
CU
want2cu
P.S. Anrede und Gruss nüssen nicht unbedingt sein, sind aber doch recht nett-iquette ;-)