Microsoft Excel

Herbers Excel/VBA-Archiv

Dateiname + Mappenname

Betrifft: Dateiname + Mappenname von: Walter
Geschrieben am: 23.08.2004 14:28:14

Hallo Zusammen,
ich habe eine Frage:
Ich möchte den Dateinamen und aus der Mappe "Kulanzblatt-Verkäufer" aus der Zelle "F12" den Namen automatisch in die linke Fußleiste geschrieben haben und zwar in Courier New 8.
Geht das ?
Gruss Walter

  


Betrifft: AW: Dateiname + Mappenname von: Ingo
Geschrieben am: 23.08.2004 16:08:22

Du kannst folgenden Code in das Modul des Workbook einfügen.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim kbl_verkäufer
kbl_verkäufer = Sheets("Kulanzblatt_Verkäufer").[F12]
    With ActiveSheet.PageSetup
        .LeftFooter = "&""Courier New,Standard""&8&F" & " " & kbl_verkäufer
    End With
End Sub

Dann müsste eigentlich immer vor Ausdruck, die Fusszeile angepasst werden.
m f G
Ingo Christiansen


  


Betrifft: Danke für den Tip... von: Walter
Geschrieben am: 23.08.2004 16:36:10

Hallo Ingo,
herzlichen Dank für den Tip.
Gruss Walter


 

Beiträge aus den Excel-Beispielen zum Thema "Dateiname + Mappenname"