Office: Datei NICHT überschreiben

Hallo zusammen,

dank dieses Forums habe ich wirklich schon riesige Schritte gemacht, was das Erstellen von Makros angeht.
Nun habe ich aber mal wieder ein Problem, zu dem ich noch keine Lösung finden konnte.
Ich möchte per Button das aktuelle Tabellenblatt in einem Pfad als pdf ablegen. Das funktioniert erst einmal generell ABER
1. Anders, als wenn man das per Hand macht, erscheint keine Fehlermeldung, wenn es die Datei schon gibt, sie wird einfach überschrieben.
2. Ich würde gern zu Beginn des Dateinamens das Datum in der Form JJMMTT nehmen, das Datum ist in diesem Falle die im Makro angegebene Zelle AJ4. Die Zelle ist in dem benutzerdefinierten Format formatiert, das wird aber beim Dateinamen komplett ignoriert?
Ist bestimmt ganz einfach - könnt Ihr mir helfen?
Hier ist das Makro für die Geschichte, wie ich es angelegt habe:

Sub Ablage()
'
' Ablage des Dokuments
'
'
ChDir "N:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\" & Cells(4, 36) & Cells(3, 36) & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

Vielen Dank und viele Grüße
diemollo

:)

 

Hi,

prüfe zuerst mit Dir, ob die Mappe bereits vorhanden ist.
Das Datum kannst du mittels Befehl Format(Datum, "yymmdd") entsprechend umwandeln (englische Schreibweise in VBA erforderlich).

Ungetestet:

Code:

 

Guten Morgen Karin,

vielen Dank für die schnelle Antwort.
Die Datumsumwandlung funktioniert super, vielen Dank!
Leider überspeichert es nach wie vor, es kommt auch keine Fehlermeldung. Echt komisch. Ich habe an einer anderen Stelle im Netz nochmal was dazu gefunden - genau dieselbe If Dir wie Du es mir vorgeschlagen hast.
Mmh, ich bin etwas ratlos.

Viele Grüße
diemollo

 

Hi,

kann ich nicht nachvollziehen: der Code funktioniert korrekt und geht nur in die If-Verzweigung wenn die Mappe noch nicht vorhanden ist - habe den Code gerade getestet.

 

Hallo Karin,

ICH HAB DEN FEHLER GEFUNDEN! *Smilie

Es hätte können so einfach sein. Ich habe ja einen anderen, längeren Pfad. Ich hatte das \ nicht drin, daher vergleicht er das natürlich mit etwas anderem, was beim Speichern, wo das \ angegeben ist, abgelegt wurde und daher niemals übereinstimmt und damit die Fehlermeldung erzeugt.
Vielen Dank nochmal für die Hilfe, hab ich wieder was gelernt.
Viele Grüße und ein schönes Wochenende!
diemollo