Hallo zusammen, ich habe hier unten einen Code zum Abspeichern eines Excel-Arbeitsblattes zur PDF-Datei. Komischerweise funktioniert dieser Befehl manchmal und manchmal nicht. Daher weiß ich nicht genau wo der Fehler liegt. Wenn es nicht funktioniert, schließt sich Excel einfach ohne zu speichern, weder die PDF noch die eigentliche Datei, und es kommt auch keine Fehlermeldung. Wäre für eure Hilfe echt dankbar! LG Nini
Sub PDFDatei()
Dim vntReturn As Variant
vntReturn = Application.GetSaveAsFilename(InitialFileName:="kalku.pdf", _
Filefilter:="PDF-Datei (*.pdf), *.pdf)", Title:="PDF speichern")
If vntReturn <> False Then
Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=vntReturn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
End If
End Sub
|