Sub Lieferschein()
Dim vntFile As Variant
Sheets("Lieferschein").Select
Range("D10").Select
If ActiveCell.Offset(0, 0) = "" Then
Exit Sub
Else
ChDir _
"E:\DATEN\sdoliwa\EigeneDokumente\2012\Vorgesorgt\Rechnungen\Lieferscheine"
ActiveWorkbook.SaveAs Filename:= _
"E:\DATEN\sdoliwa\EigeneDokumente\2012\Vorgesorgt\Rechnungen\Lieferscheine\" & " _
Lieferschein" & Sheets("Lieferschein").Range("D3") & ".pdf", _
If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End If
End Sub