VBA-Formatcode für Pfad in Kopf-/Fusszeile in EXCEL 2002
Peter viviani
Leider ist in der Hilfe dieser Code (& ... ) noch nicht
aufgeführt. Ich benötige den Code in einer VBA-Routine.
Vielen Dank
Peter
Monika Weber
>Leider ist in der Hilfe dieser Code (& ... ) noch nicht
>aufgeführt. Ich benötige den Code in einer VBA-Routine.
Der nachfolgende Code fügt eine linke Fusszeile mit
Dateiname und Pfad ein:
Sub DateiName_mit_Pfad()
ActiveSheet.PageSetup.LeftFooter = _
ActiveWorkbook.Path & "\" & _
ActiveWorkbook.Name
End Sub
-------
Der nachfolgende Code ebenfalls, jedoch mit der
Schriftgrösse 15:
Sub DateiName_mit_Pfad_und_Schriftgroesse_15()
ActiveSheet.PageSetup.LeftFooter = _
"&15" & ActiveWorkbook.Path & "\" & _
ActiveWorkbook.Name
End Sub
Falls dir das nicht ausreicht, dann melde dich nochmals
und schildere dein Problem etwas ausführlicher, denn
ehrlich gesagt, weiss ich nicht so recht, was du
anstellen möchtest :-)
Es liebs Grüessli
Monika Weber
www.jumper.ch
Peter Viviani
noch eine Präzisierung:
Mit "Makro aufzeichen" wird der Code:
...
.LeftFooter = "&Z&F"
...
generiert.
Das Einbinden in eine bestehende Makro hat noch nicht das
gewünschte Ergebnis gebracht, weil mit der neuen Version
2002 Microsoft die Formatcodes gewechselt hat. Bestehende
Makro müssen so überarbeitet werden, weil keine
standardisierten "Konstanten" (x...) verwendet werden.
Meine VBA-Makros habe ich so auskommentieren müssen, da
ich mit verschieden Versionen (noch) arbeiten muss:
' Achtung: bei Version 10 (EXCEL 2002) haben Formatcode
geändert !
' neu Version 2002: Dateiname (=F), Blattname (=A), Datum
(=D), Zeit (=T), Seite (=P), Gesamtseiten (=N)
' neuer Code bei Version 10 (EXCEL 2002): Pfad =Z
' alte Versionen: Dateiname (alt =N), Blattname (alt =B),
Datum (neu und alt =D), Zeit (alt =U), Seite (alt =S),
Gesamtseiten (alt =A)
Gute Nacht beim Anpassen dieser oberblöden Aenderung der
Formatcodes!
Peter
PS: natürlich gibt es die Möglichkeit den Wert
von "ThisWorkbook.FullName" in der Kopf- oder Fusszeile
einzusetzen. Nur wenn dann der Pfad wechselt oder wenn der
Dateiname geändert wird, stimmt der Wert nicht mehr. Das
Setzen der auto... Makros zum Aktualisieren schreckt dann
Benutzer auf, die den höchstmöglichen Virenschutz
eingestellt haben ...