Option
Explicit
Sub
PDFDokumentation()
Dim
sDateiname
As
String
, sPfad
As
String
sPfad =
"/Users/onhhollander/Desktop/Abrechnung Hollander WorkingHours/PDF Dokumentationen Hollander/"
sPfad = ThisWorkbook.Path & "\"
With
Sheets(
"Arbeitszeit Dokumentation"
)
sDateiname = sPfad & .Range(
"K52"
).Value &
".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityMinimum, IncludeDocProperties:=
True
, _
IgnorePrintAreas:=
False
, OpenAfterPublish:=
False
End
With
End
Sub