Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn Datei existiert, dann Name erweitern

Wenn Datei existiert, dann Name erweitern
22.08.2006 16:01:21
Alexander
Hallo zusammen,
ich habe folgendes Problem: Die Excel-Datei wird per Makro unter einem bestimmten Namen abgespeichert. Wenn dort jedoch diese Datei schon existiert kommt bekanntlich die Meldung "Datei existiert bereits, überschreiben?" Wenn dies der Fall ist, soll die Datei trotzdem in diesem Ordner gespeichert werden jedoch mit einer Erweiterung z.B. ...(2)
habe leider bei der Recherche noch nicht Passendes gefunden.
Vielen Dank für die Hilfe.
Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Datei existiert, dann Name erweitern
22.08.2006 19:20:43
ChrisL
Hallo Alex

Sub t()
Dim strPfad As String
strPfad = "C:\Pfad\Mappe0001.xls"
Do Until Dir(strPfad) = ""
strPfad = Left(strPfad, Len(strPfad) - 8) & Format(CInt(Mid(strPfad, Len(strPfad) - 7, 4)) + 1, "0000") & ".xls"
Loop
ThisWorkbook.SaveAs strPfad
End Sub

strPfad anpassen, aber Nummer 4-stellig beibehalten.
Gruss
Chris
AW: Wenn Datei existiert, dann Name erweitern
22.08.2006 20:39:11
Alexander
Hallo Chris,
vielen Dank. Werd ich ausprobieren.
Gruß
Alex
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige