Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Datei sicher, überschreiben abstellen

Bei Datei sicher, überschreiben abstellen
25.05.2004 11:16:51
Wolfgang
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Datei Sichern, überschreiben abstellen
Wolfgang
Sorry Tippfehler im Betreff
AW: Bei Datei sicher, überschreiben abstellen
Uduuh
Hallo,
so:
If Dir(Bezeichnung)"" Then
Bezeichnung=Bezeichnung &"Version2"
End If
Gruß aus'm Pott
Udo
Danke funzt bestens ! o.T.
25.05.2004 15:06:42
Wolfgang
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige