Office: Speichern unter PDF

Hallo,

ich habe ein Makro zum "Speichern unter" als PDF und benötige bitte Hilfe.

Das Marko soll "Speichern unter" als PDF ohne vordefinierten Speicherort (mittels des Formularsteuerelements "Schaltfläche").
Dann kann man wählen „speichern“ oder „abbrechen“.
Bei „abbrechen“ – soll nichts passieren. Bei mir wird trotzdem ein PDF mit „Falsch“ erzeugt - DAS IST MEIN PROBLEM.

Bei "speichern" und die Datei ist noch nicht vorhanden – dann speichern.
Falls die Datei vorhanden ist, dann fragen „Datei vorhanden“ ersetzen „ja“ oder „nein“.
Bei „ja“ dann ersetzen. Bei „nein“ dann nicht.

Anbei mein Code. Ich bräuchte bitte Hilfe, damit bei „abbrechen“ beim "Speichern unter" kein PDF erzeugt wird.
Alles andere funktioniert.
Leider bin ich absolute Anfängerin, daher ersuche ich bei einer ev. Lösung, mir genau zu sagen, an welcher Stelle was im Makro geändert gehört.

Vielen Dank im Voraus.

Veronika

----

Sub Drucken

'
Dim myDateiname As String, mySpeicherort As String

myDateiname = "Checkliste" & "_" & Range("C9").Value & "_" & Format(Date, "DD.MM.YYYY") & ".pdf"
mySpeicherort = Application.GetSaveAsFilename(InitialFileName:=myDateiname, _
FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Als PDF speichern")


If mySpeicherort <> "" Then

If Dir(mySpeicherort) = "" Then

Worksheets("Checkliste").ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Else
If MsgBox("Datei ist bereits vorhanden. Möchten Sie diese ersetzen?", vbYesNo) = vbYes Then
Worksheets("Checkliste").ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End If
End If
End If

End Sub

 

ich konnnte den Nachbau in meiner Datei den Fehler nicht simulieren.
Vielleicht solltest Du Deine Datei verlinken und genau schreiben wie Du den Fehler auslöst.

 

Hallo,

sieht man in der Microsoft-Hilfe zu dieser Funktion nach, findet man diesen Hinweis:
Rückgabewert Variant
Diese Methode gibt den ausgewählten Dateinamen oder den durch den Benutzer eingegebenen Namen zurück. Der zurückgegebene Name enthält möglicherweise eine Pfadspezifikation. Gibt False zurück, wenn der Benutzer das Dialogfeld abbricht.

Daher muss dein Dim-Statement korrekterweise lauten:
Dim myDateiname As String, mySpeicherort As Variant

und ferner dein erstes IF-Statement:
If mySpeicherort <> False Then
'... usw.

 

Hallo Hajo,
vielen Dank für die Rückmeldung. anbei die Datei.
Danke im Voraus.
LG, Veronika

 

Hallo Exl121150,
danke für deine Antwort.
ich habe deine Verbesserungen eingebaut. Leider springt er beim Speichern dann sofort ins Debuggen.
LG, Veronika

 

Hallo,

das ist eine Info, mit der ich nichts anfangen kann, glaubst du nicht auch?
Sinnvoll wäre es es, wenn du mir die Zeile verraten würdest, in der er hängen bleibt, und was für eine Fehlermeldung (Nr.+Text) er dann bringt.

 

Hallo,
danke für deine Antwort. Ich muss mich entschuldigen, dein Input war korrekt. Der Code läuft perfekt.
Vielen Dank!

 

Hallo,
ich hätte noche eine weitere Frage zum obigen Sachverhalt.
Wenn das PDF bereits geöffnet ist und ich versuche es erneut unter demselben Namen abzuspeichern erscheint die Fehlermeldeung: Laufzeitfehler 1004: Das Dokument wurde nicht gespeichert. Das Dokument ist möglicherweise geöffnet,...
und dann kann man "Beenden" oder "Debuggen" drücken.

Dass hier eine Fehlermeldung erscheint ist ja in Ordnung, aber ich hätte gerne eine MsgBox bei der man nicht auf Debuggen gehen kann. Das Dokument ist für mehrere Personen vorgesehen und "Debuggen" würde hier verwirren.
Am besten wäre ein kurzer Text "Das Dokument ist geöffnet. Speichervorgange nicht möglich." und man soll nur auf "OK" klicken können.

Ich hoffe jemand kann mir helfen, dies in dem obigen Code zu integrieren.

Vielen Dank.

LG, Veronika