pdf-druck filename einbauen
30.07.2018 10:36:25
Willi
Das erstellen eines pdf von mehreren Bereichen habe ich gelöst mit
Sub PDF_BA_Gesamt()
Range("A1:K59").Select
Sheets(Array("Person", "Erweitert", "Ergebnis")).Select
Sheets("Erweitert").Activate
Range("A1:H45").Select
Sheets(Array("Person", "Erweitert", "Ergebnis")).Select
Sheets("Ergebnis").Activate
Range("A1:K94").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Desktop\Person\WILLI Gesamt.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Ergebnis").Select
ActiveWindow.SmallScroll Down:=-84
Sheets("Person").Select
ActiveSheet.Shapes.Range(Array("Picture 43")).Select
Range("C1").Select
Sheets("Erweitert").Select
ActiveWindow.SmallScroll Down:=-63
Range("A1").Select
Sheets("Ergebnis").Select
ActiveWindow.SmallScroll Down:=-24
Range("A1").Select
End Sub
funktioniert einwandfrei.
Ich möchte jedoch den jeweiligen Dateinamen direkt in den Ausdruck einbauen und dafür sorgen, dass mir das neue pdf aus der geänderten Datei "Müller Gesamt" das pdf im selben Ordner "C:\Desktop\Person\ mit "Müller Gesamt.pdf" ablegt und nicht den letzte pdf Druck WILLI Gesamt.pdf" überschreibt.
Kann man hier dafür sorgen, dass das Makro sich jeweils den Namen der aktuellen Datei holt?
Bin euch dankbar für jede Möglichkeit
Willi
Anzeige