PDF speichern - Abbruch nicht möglich?
03.04.2020 12:17:34
Sco
Ich habe hier folgenden Code:
(PDF soll erstellt werden, Excel Mappe ohne zu speichern geschlossen werden)
Funktioniert auch soweit alles gut, msgBoxes funktionieren auch. Aber, wenn ich dann speichern will und den Dateipfad auswählen könnte, könnte ich nochmal "Abbrechen" auswählen. Allerdings speichert er das Dokument als PDF, dann aber nicht wie gewollt sondern als Falsch.pdf und die Excel Datei schließt trotzdem ungespeichert.
Wie kann ich sicherstellen, dass es wirklich den Vorgang abbricht, wenn ich "Abbrechen" drücke?
Code:
Sub PDF_erstellen()
Dim Eingabewert As Byte
Eingabewert = MsgBox("Wurde das Teil vollständig gegprüft? /" & vbNewLine & "Has the part been _
completely checked?", vbQuestion + vbYesNo, "Prüfung beenden? / End Checking?")
If Eingabewert = vbYes Then
MsgBox "PDF wird erstellt, Eingaben werden unwiderruflich gelöscht! /" & vbNewLine & "PDF will _
be created and any inputs will be deleted!"
' PDF erstellen und Tabelle schließen - Makro
Dim Pfad As String, Dateiname As String
Dateiname = Range("G6") & ".-QS_geprueft" & ".pdf"
Pfad = Application.GetSaveAsFilename(InitialFileName:=Dateiname, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
ThisWorkbook.Close SaveChanges:=False
ElseIf Eingabewert = vbNo Then
MsgBox "Kein PDF erstellt. /" & vbNewLine & "No PDF created."
End If
End Sub