If Range("E4") = "" Then MsgBox "Mat No Fehlt"
If Range("E4") = "" Then Exit Sub
If Range("C11") <> Range("E11") Then
If Range("B22") = "" Then
MsgBox "Begründung fehlt"
Exit Sub
End If
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 Sub