Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon ara78 vom 11.05.2022, 09:11 Options
Makro um Pfad "hart" in Fusszeile einzutragen
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.
Wie müßte die Fußzeile aussehen, wenn der Pfad einmalig bei Ausführen des Makros "hart" eingetragen wird?
Schöne Grüße
ara78
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
Antwort 1 von Saarbauer vom 11.05.2022, 09:50 Options
Hallo,
da ein Austesten dieses Bruchstücks schlecht machbar ist
an den beiden fett gekennzeichneten Stellen stehen die Angaben zum Verzeichnis und da müsste man ändern und austesten
Gruß
Helmut
da ein Austesten dieses Bruchstücks schlecht machbar ist
Zitat:
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
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
Antwort 2 von M.O. vom 11.05.2022, 10:42 Options
Hallo,
das folgende Makro schreibt den Pfad und den Dateinamen in die Fußzeile:
Falls du nur den aktuellen Pfad brauchst dann so:
Gruß
M.O.
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 SubFalls du nur den aktuellen Pfad brauchst dann so:
Sub Fuß_Mit_UPfad()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path
End Sub
Gruß
M.O.
Antwort 3 von fedjo vom 11.05.2022, 10:42 Options
Hallo ara 78,
vielleicht währe das eine Lösung:
Sub PfadInFusszeile()
Worksheets(1).PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub
Gruß
fedjo
vielleicht währe das eine Lösung:
Sub PfadInFusszeile()
Worksheets(1).PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub
Gruß
fedjo
Ähnliche Themen
VBA - Seitenansicht; Fusszeile
Tomschi 17.12.2008 - 14 Hits - 5 Antworten
Excel-Makro: Datei speichern unter variablem Pfad
andreas_3 24.02.2009 - 545 Hits - 2 Antworten
Makro im Makro deaktivieren ?
korfuweb 02.03.2009 - 179 Hits - 7 Antworten
Datei-Name und Pfad von Excel eintragen lassen
Bird03 31.12.2009 - 328 Hits - 8 Antworten
Formelanpassung in Excel bei sich änderndem Dateinamen / -pfad (Indirekt???)
Tremono 07.05.2010 - 278 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
