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
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