VBA - Pfadangabe
Guten Morgen!
Folgendes Problem:
Ich möchte gerne eine Pfadangabe per VBA machen.
Der Dateiname selbst, soll jedoch als Variable eingefügt werden.
ActiveWorkbook.FullName oder
ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
hilft mir da nicht weiter.
Der Makrorekorder bringt mir folgenden Code:
.LeftFooter = "C:\tmp\test\\&F"
Wie kann ich das &F mit z. B. workbook.path verbinden?
Thanx
Tom
Antwort schreiben
Antwort 1 von M.O. vom 05.06.2020, 11:37 Options
Hallo Tom,
suchst du vielleicht so etwas:
Sub Fuß_Mit_Pfad()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
End Sub
Gruß
M.O.
Antwort 2 von Tomschi vom 05.06.2020, 12:44 Options
Mahlzeit M.O.!
Danke, dass Du Dir mein Problem angesehen hast.
Wie bereits kurz erwähnt kann ich mit dem Befehl
ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
leider nichts anfangen.
Mit ActiveWorkbook.Name wird der Dateiname fix in die Fusszeile gestellt.
Wird aber nunmehr die Datei z. B. umbenannt, so müsste der User bzw. die Datei jedesmal das Makro ausführen.
Die Datei selbst enthält keine Makros. Der Pfad wird via AddIn in der Datei festgelegt.
Mir geht es jetzt darum, dass zwar der Pfad mit ActiveWorkbook.Path festgehalten wird, jedoch der Dateiname variabel ist.
ActiveSheet.PageSetup.LeftFooter = "&F" macht dies bekanntlich, aber der Pfad fehlt eben.
Wie kann ich als ActiveWorkbook.Path und "&F" miteinander verknüpfen?
Ciao
Tom
Antwort 3 von M.O. vom 05.06.2020, 13:17 Options
Hallo Tom,
jetzt ist bei der Groschen gefallen :-).
Suchst du etwa diesen Code:
Sub Fuß_Mit_UPfad()
ActiveSheet.PageSetup.LeftFooter = "&Z&F"
End Sub
Gruß
M.O.
Antwort 4 von Tomschi vom 10.06.2020, 08:20 Options
Guten Morgen M.O.!
Sorry, dass ich mich erst jetzt melde.
Unter Office2003 klappt alles, aber unter Office2000 wird nur der Dateiname als .CenterFooter = festgelegt.
Der Pfad ist nicht vorhanden.
Hm, vielleicht gibt es noch einen anderen Ansatz.
Ciao
Tom
Antwort 5 von M.O. vom 10.06.2020, 11:32 Options
Hallo Tom,
ich habe leider kein EXCEL 2000 mehr. Außer den geposteten Antworten habe ich leider keine weiteren Ideen.
Gruß
M.O.
Antwort 6 von Tomschi vom 10.06.2020, 12:10 Options
Hi M.O.!
Schade, da kann man wohl nichts machen.
Trotzdem DANKE fuer Deine Unterstützung.
Tom