Bei Datei sicher, überschreiben abstellen
25.05.2004 11:16:51
Wolfgang
habe folgendes Makro in eine etwas längere prozedur eingefügt:
Sub dateisicherung()
Dim datum
Dim pfad
Dim name
Dim bezeichnung
datum = Date
pfad = "H:\testordner\"
name = ActiveWorkbook.name
bezeichnung = pfad & "Sicherung" & "_" & datum & "_" & name
ActiveWorkbook.SaveCopyAs bezeichnung
End Sub
wobei H:\ ein Netzlaufwerk ist.
Jetzt funktioniert eigentlich alles einwandfrei, jedoch wird beim erneueten Ausführen des Makros am gleichen Tag die bestehende Datei überschrieben. Leider kommt es zu keiner Nachfrage, ob dies gewünscht ist.
Jetzt meine Frage: Gibt es eine Möglichkeit bei einer erneuten Sicherung zu erkennen das eine gleiche Datei bereits existiert um dann den neuen Dateinamen mit "version_2" zu erweitern.
Danke im vorraus
Wolfgang
Anzeige