Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fusszeile bei bestehenden Files

Fusszeile bei bestehenden Files
27.01.2004 08:48:35
m@t
Hallo Experten
Hab vor kurzem von Thomas dieses Makro bekommen,
um automatisch bei neuen Excel-Files den gesammten
Pfad in der Fusszeilen auszugeben.

Private Sub Workbook_Beforeclose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim wks As Integer
For wks = 1 To Sheets.Count
Sheets(wks).PageSetup.LeftFooter = "&08" + ThisWorkbook.FullName _
& " - " & Sheets(wks).Name
Next wks
Application.ScreenUpdating = True
End Sub

Nun meine Frage, wie kann oder muss ich diesen Code
ändern/anpassen, damit der Pfad auch bei bereits bestehenden
Files in der Fusszeile steht?
Es wäre schön, wenn ich die Dateien bloss öffnen und neu
speichern müsste, damit der Pfad übernommen wird.
Ich hoffe, dass jemand von Euch Profis ne Lösung für mich hat.
Schon mal vielen Dank für Eure Hilfe.
Gruss Matthew

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fusszeile bei bestehenden Files
27.01.2004 09:32:43
patrick
hi
schreib den copde mal in
Sub workbook_open()
anstatt
Private Sub Workbook_Beforeclose
cu
patrick
AW: leider nicht:-(
27.01.2004 10:15:03
m@t
Hi Patrick
Hat leider auch nicht funktioniert..
sonst noch ne Idee?
Gruss mat
AW: leider nicht:-(
27.01.2004 10:30:47
PeterA
Hallo mat !
Was soll da nicht funktioniert? Eine genauere Beschreibung wäre nicht schlecht.
Kopier das Makro so wie patrick gesagt hat in
Sub workbook_open()
schließ und save die datei und öffne sie

Ciao Peter
AW: leider nicht:-(
27.01.2004 10:39:26
mat
Hallo Peter
hab den Code angepasse mit Sub workbook_open(),
doch ich bekomm nachwievor keinen Pfad in die Fusszeile
bei den bestehenden Files.
Vielleicht hab ich mich falsch ausgedrückt:
Ich hab das Makro unter XLSTART als Vorlage
gespeichert und nicht in den einzelnen Excel-Files.
Es soll dann automatisch alle Files mit dem Pfad
in der Fusszeile versehen.
Bei neu erstellten Mappen funktioniert das auch einwandfrei,
doch bei bestehenden Files übernimmt es den Pfad eben nicht.
Gruss Matthew
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige