Sub
Pdf_01()
Sheets(
"Freigabe Heisskanal"
).
Select
ChDir
"C:\Users\Andrej\Desktop\" & Range("
A1
") & "
\
" & Range("
A1
") & "
_Datenaustausch"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"ChDir "
C:\Users\Andrej\Desktop\
" & Range("
A1
") & "
\
" & Range("
A1
") & "
_Datenaustausch\Freigabedokument_W12345.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=
True
, IgnorePrintAreas _
:=
False
, OpenAfterPublish:=
False
Sheets(
"Eingabemaske"
).
Select
End
Sub