If
Range(
"E4"
) =
""
Then
MsgBox
"Mat No Fehlt"
Exit
Sub
End
If
If
Range(
"C11"
) =
""
Or
Range(
"E11"
) =
""
Then
MsgBox
"Zellen C11 und E11 ausfüllen"
Exit
Sub
End
If
If
Range(
"C11"
) <> Range(
"E11"
)
And
Range(
"B22"
) =
""
Then
MsgBox
"Begründung fehlt"
Exit
Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"O:\Neue_Transferpreise\" & ActiveSheet.Range("
E4
").Value & "
-
" & ActiveSheet.Range("
H1
").Value & "
.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=
True
, IgnorePrintAreas:=
False
, OpenAfterPublish:= _
False
MsgBox
"Die Datei wurde unter "
& lw_pfad & ActiveSheet.Range(
"E4"
).Value &
" - "
& ActiveSheet.Range(
"H1"
).Value &
".pdf gespeichert."
, ,
"OK"
End
If
Gruß Werner