VBA Code

Private Sub CommandButton1_Click()
'Dialogfeld automatisches Speichern als PDF
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\D:\Bestellschein\" & "Lfd.   _
_
_
_
Nr." & "PDF", "PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Tabelle2")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub