Supportnet / Forum / Tabellenkalkulation
Speicherpfad in der Fußzeile???
Frage
Hallo,
meine mir so oft helfenden Freunde...
Ich bins mal wieder mit einem klitzekleinen Problem..
gibt es in Excel die Möglichkeit den Dateinamen (wie das funktioniert ist klar) und auch, ganz wichtig, den SPEICHERPFAD in der fußzeile einfügen zu lassen?
vielen Dank im voraus
Diskshut
Antwort 1 von coros
Hi,
kopiere nachfolgenden Code in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Du kannst das auch vor dem Drucken automatisch einfügen lassen. Kopiere dazu den nachfolgenden Code in das VBA Projekt "DieseArbeitsmappe".
kopiere nachfolgenden Code in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Sub Kompletter_Pfad_in_Fusszeile()
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveSheet.Parent.FullName
End Sub
Du kannst das auch vor dem Drucken automatisch einfügen lassen. Kopiere dazu den nachfolgenden Code in das VBA Projekt "DieseArbeitsmappe".
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveSheet.Parent.FullName
End Sub[/code[/b]]
Ich hoffe Du kommst klar. Ansonsten melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Diskshut
Hi,
vielen Dank.
Habs aber jetzt mit einem anderen Makro geschafft. Vielleicht auch ganz interessant:
Sub PfadfürFußzeile()
With ActiveSheet.PageSetup
.CenterFooter = LCase(ActiveWorkbook.Path & "" ActiveWorkbook.Name)
End With
End Sub
Trotzdem vielen, vielen, vielen, vielen Dank für deine Mühen.
vielen Dank.
Habs aber jetzt mit einem anderen Makro geschafft. Vielleicht auch ganz interessant:
Sub PfadfürFußzeile()
With ActiveSheet.PageSetup
.CenterFooter = LCase(ActiveWorkbook.Path & "" ActiveWorkbook.Name)
End With
End Sub
Trotzdem vielen, vielen, vielen, vielen Dank für deine Mühen.
Antwort 3 von Diskshut
Huhu,
ich mal wieder...
Ich hab noch mal ein kleines Problem mit dem Makro.
Das Makro speichert sich irgendwie nicht so ab, dass ich es auch bei einem erneuten Öffnen von Excel benutzen kann. Obwohl ich es in ALLEN OFFEN ARBEITSMAPPEN speichere.
Idee???
Danke
Diskshut
ich mal wieder...
Ich hab noch mal ein kleines Problem mit dem Makro.
Das Makro speichert sich irgendwie nicht so ab, dass ich es auch bei einem erneuten Öffnen von Excel benutzen kann. Obwohl ich es in ALLEN OFFEN ARBEITSMAPPEN speichere.
Idee???
Danke
Diskshut
Antwort 4 von piano
Hallo
Der Makro sollte im Dokument PERSONL.XLS im Pfad C:Dokumente und Einstellungen Dein_NameAnwendungsdatenMicrosoftExcelXLSTART gespeichert sein.
Überprüfe das einmal, ausserdem sieh nach, ob beim Öffnen in der VBA-Umgebung (Alt/F11) das Projekt PERSONL.XLS existiert und hier der Makro unter Module/Modul1 aufscheint.
Ausserdem könntest Du noch die Makro-Sicherheist-Einstellungen prüfen(Extras/Makro/Sicherheit).
Diede Angaben gelten für Office XP. Andere Versionen können leicht variieren!
Melde Dich wieder mit den Ergebnissen!
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
Der Makro sollte im Dokument PERSONL.XLS im Pfad C:Dokumente und Einstellungen Dein_NameAnwendungsdatenMicrosoftExcelXLSTART gespeichert sein.
Überprüfe das einmal, ausserdem sieh nach, ob beim Öffnen in der VBA-Umgebung (Alt/F11) das Projekt PERSONL.XLS existiert und hier der Makro unter Module/Modul1 aufscheint.
Ausserdem könntest Du noch die Makro-Sicherheist-Einstellungen prüfen(Extras/Makro/Sicherheit).
Diede Angaben gelten für Office XP. Andere Versionen können leicht variieren!
Melde Dich wieder mit den Ergebnissen!
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von Diskshut
hulu,
super, vielen herzlichen Dank.
Hatte die Datei irgendwie, ähm, gelöscht.
Wiederhergestellt, jetzt läuft alles super.
Ihr seit einfach klasse.
Danke... ;-))
Diskshut
super, vielen herzlichen Dank.
Hatte die Datei irgendwie, ähm, gelöscht.
Wiederhergestellt, jetzt läuft alles super.
Ihr seit einfach klasse.
Danke... ;-))
Diskshut
Antwort 6 von Diskshut
Hallo ihr,
ich hatte ja schon einige Zeit kein Problem/Frage mehr in Excel. Aber jetzt wieder... ;-)
Kann man in diesem Makro noch die Funktion der aktuellen Speicherzeit einarbeiten?
Sub Kompletter_Pfad_in_Fusszeile()
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveSheet.Parent.FullName
End Sub
Das wäre super!
Dank im Voraus
Diskshut
ich hatte ja schon einige Zeit kein Problem/Frage mehr in Excel. Aber jetzt wieder... ;-)
Kann man in diesem Makro noch die Funktion der aktuellen Speicherzeit einarbeiten?
Sub Kompletter_Pfad_in_Fusszeile()
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveSheet.Parent.FullName
End Sub
Das wäre super!
Dank im Voraus
Diskshut
Antwort 7 von coros
Moin Diskshut,
mit nachfolgenden Code wird Dir zusätzlich zu dem Speicherpfad auch noch das Datum und die Uhrzeit der letzten Sicherung in der Fußzeile ausgegeben.
Benötigst Du nur das Datum musst Du mit Format die Angabe in das richtige Format bringen. Zum Beispiel mit
Format(ActiveWorkbook.BuiltinDocumentProperties(12), "hh:mm:ss")
nur die Uhrzeit oder mit
Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
nur das Datum
Ich hoffe, Du kommst kalr. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
mit nachfolgenden Code wird Dir zusätzlich zu dem Speicherpfad auch noch das Datum und die Uhrzeit der letzten Sicherung in der Fußzeile ausgegeben.
Sub Kompletter_Pfad_in_Fusszeile()
ActiveSheet.PageSetup.RightFooter = "&8" & ActiveSheet.Parent.FullName & Chr(10) _
& "Letzte Sicherung " & ActiveWorkbook.BuiltinDocumentProperties(12)
End Sub
Benötigst Du nur das Datum musst Du mit Format die Angabe in das richtige Format bringen. Zum Beispiel mit
Format(ActiveWorkbook.BuiltinDocumentProperties(12), "hh:mm:ss")
nur die Uhrzeit oder mit
Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mm.yyyy")
nur das Datum
Ich hoffe, Du kommst kalr. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 8 von Diskshut
Hey coros,
du bist mal wieder meine Rettung. Auch deine Seite hat mir schon oft geholfen.
Vielen Dank!
Diskshut
du bist mal wieder meine Rettung. Auch deine Seite hat mir schon oft geholfen.
Vielen Dank!
Diskshut