PDF per Makro generieren mit vorgängiger
07.06.2020 00:32:41
roger
Die unten erstellte Makro funktioniert einwandfrei um ein PDF zu generieren. Der Haken an diesem Makro ist wenn ich schon ein bereits PDF Nr1 habe überschreibt es beim erneuten abspeichern von Nr1 ohne abzufragen ob es überschreiben darf bzw. eine PDF Nr2 als Name vorschlägt. Hat jemand eine Idee wie man das Makro ergänzen kann damit die Frage kommt bevor es speichert falls bereits ein Dokument mit demselben Namen existiert?
Freue mich um Eure Hilfe
Beste Grüsse
Sub saveAsPDFEinzahlung()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & _
ActiveSheet.Range("S1").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
ActiveSheet.Range("S1:T25").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=Fals, _
OpenAfterPublish:=False
End If
End Sub
Anzeige