Office: Speichern unter fragt nicht nach überschreiben bei vorhandener Datei

Hallo zusammen,

ich komme bei folgendem Problem nicht weiter und würde mich über eure Unterstützung freuen.
Ich habe folgenden Code, der beim Klick auf eine Schaltfläche unter anderem ausgeführt wird:

---
Sub AktivesBlattZuPDF()

Dim myDateiname As String, mySpeicherort As String

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

If mySpeicherort "" And mySpeicherort "Falsch" Then
ActiveSheet.Range("A1:AC41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=mySpeicherort, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
MsgBox "Als PDF speichern abgebrochen"
Exit Sub
End If

End Sub
---

Es öffnet sich also der Speichern unter-Dialog mit einem vorgegebenen Dateinamen. Bei Klick auf abbrechen wird der Dialog mit einer zusätzlichen Hinweisbox geschlossen. So weit, so gut.

Mein Problem ist folgendes: wenn ich auf speichern klicke und bereits eine Datei mit demselben Namen in dem Verzeichnis vorhanden ist, wird diese ohne weitere Nachfrage überschrieben.

Wie bekomme ich es hin, dass abgefragt wird, ob die Datei tatsächlich überschrieben werden soll, so wie man es normalerweise auch kennt?
Ich weiß nicht, warum er das bei mir nicht tut.
Auf die Message-Box kann ich verzichten, falls sie es unnötig verkompliziert. Ich hatte sie nur eingebaut, weil er ansonsten die Datei auch bei Klick auf abbrechen exportiert hat.

Ich freue mich auf eure Rückmeldungen.

Gruß, Alex

PS: Habe die Frage ebenfalls im Nachbarforum office-hilfe.com gestellt: http://www.office-hilfe.com/support/...handener-Datei

:)

 

ich würde eine Abfrage vorschalten

if "file exist" und darauf mit Then & Else fortfahren

 

Moin!
Mal ein zusätzlicher Tipp:
Wenn Du statt "dd.mm.yyyy" "yyyy_mm_dd" nimmst, werden Deine Dateien vernünftig im Explorer sortiert.
Nimmst Du zusätzlich noch die Zeit rein, dann kann es nicht zum Überschreiben kommen.
"yy_mm_dd_hh_nn_ss"

Gruß Ralf

 

Moin Ralf,

vielen Dank für den Hinweis bzgl. der Reihenfolge des Datums.
Da der Dateiname aus bestimmten Zellen generiert wird, in denen ständig etwas anderes steht, ist das Datum zum sortieren im Dateinamen nicht so wichtig, sondern dient nur zur Information des Erstellzeitpunkts.

Das mit der Uhrzeit im Dateinamen ist eine gute Idee, nur würde dieser dann noch länger werden.

Hast du eine Ahnung, warum bei mir die Abfrage nicht kommt bzgl. der bereits vorhandenen Datei?
In anderen Beiträgen lese ich immer wieder, dass Leute die Abfrage weg haben wollen und bei mir kommt sie erst gar nicht, obwohl das eigentlich ja der bekannte Standard ist?!

Ich bin in VBA leider nicht so bewandert und bin für jeden Hilfe dankbar.

Gruß, Alex

 

Hola,

und nochmal der Hinweis auf Verlinkung der Beiträge in den verschiedenen Foren.

Gruß,
steve1da

 

Ich weiß, danke. Musste erst noch warten, bis mein Beitrag dort veröffentlicht wurde, damit ich den Link zur Verfügung hatte.

 

Die Überschreibwarnung ist in der Range.ExportAsFixedFormat-Methode schlicht nicht vorgesehen, Alex!
Ich habe das mal mit folgendem Simpel-Makro überprüft:
Code:

Gruß Ralf

 

vielleicht funktioniert es mit dem Excel-Application-Dialog :

Code:

 

Danke Ferenc, da fehlt mir leider das nötige Wissen, das entsprechend einzubauen.
Wie könnte denn deine angesprochene if-Abfrage, ob der Dateiname bereits existiert in meinen Code integriert werden? Ich steht da leider auf dem Schlauch.

 

\@Ferenc:
Ich gehe mal davon aus, dass der TE bewusst die Range.Exp…-Methode anwendet.
Da hilft Dein Dialog nicht.

 

Code:

 

...und wenn ich dann in der Checkbox die Möglichkeit haben wollte mit "abbrechen" zum Speichern unter-Dialog zurück zu kehren oder mit "trotzdem speichern" die vorhandene Datei zu überschreiben?

*Smilie

 

Ja, ich habe bewusst ExportAsFixedFormat benutzt, weil ich es zwingend als PDF brauche.

 

Hallo Alex,

oder aber so?

Code:

Grüße

Harald

 

Hallo Harald,

vielen Dank für deine Rückmeldung.
Mit einer zweiten If-Schleife hat es geklappt, vielen Dank! :-)

Gruß, Alex