Hast Du mein Makro denn schon mal ausprobiert?
Da wird doch der Text aus Blatt "Arbeitszeit Dokumentation", Zelle K52 um den Pfad und die Erweiterung .PDF ergänzt und ergibt den kompletten Pfad zum Schreiben der Datei.
Oder ist es ein anderes Blatt?
Und ob allerdings Dein Pfad stimmt, kann ich nicht beurteilen. Sieht mir nicht so aus. Vielleicht eher so?
sPfad = "C:\Users\onhhollander\Desktop\Abrechnung Hollander WorkingHours\PDF Dokumentationen Hollander\"
Und wenn Du unbedingt Dein hier gepostetes Makro nutzen willst, kannst Du den Dateinamen so einsetzen:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/onhhollander/Desktop/Abrechnung Hollander WorkingHours/PDF Dokumentationen Hollander/" & Range("K52").value & ".pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
viele Grüße
Karl-Heinz
|