Hallo
ich kann eine PDF-Erstellen lassen und mit einem Name speichern.
Mein Problem ist nur, dass sobald ich auf Abbrechen drücke, trotzdem die PDF-gespeichert wird.
Wie muss man den Code ergänzen, sodass das nicht passiert?
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & Range("C29") & "_" & Range("C51") & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Berechnung")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
If pdfName = "Falsch" Then Exit Sub