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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen