Laufzeitfehler 52
14.07.2020 11:48:02
Lilli
Ich habe ein Makro, der mir hilft die Seite ins PDF zu speichern. Manchmal taucht der Fehler auf:
Laufzeitfehler '52
Dateiname oder -nummer falsch
Ich kann leider mit der Fehlermeldung nichts anfangen.
Sub pdfdruck()
Dim pdfName As String
Rem Dateipfad
pdfName = ThisWorkbook.Sheets("formular").Range("AE14").Value & ThisWorkbook.Sheets(" _
formular").Range("AE16").Value & ".pdf"
Rem Prüfen ob Dateiname angegeben ist
If ThisWorkbook.Sheets("formular").Range("AE16").Value = "" Then
MsgBox "Es wurde kein ID angegeben. Bitte prüfen!", 64, "Hinweis"
Exit Sub
End If
Rem Prüfen ob Datei existiert
If Dir(pdfName) "" Then
If MsgBox("Diese Datei existiert bereits. Überschreiben?", vbYesNo + vbExclamation, "Ü _
berschreiben?") = vbNo Then Exit Sub
End If
Rem PDF-Datei erstellen.
Sheets("formular").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName
End Sub
kann man vielleicht irgendetwas ändern, dass der Fehler nicht mehr auftaucht?
Kann mir vielleicht, wenn es keinen Umständen macht, erklären, wie der Fehler entsteht?
Vielen Dank für die Hilfe im Voraus.
Viele Grüße, Lilli