Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateiname plus Wenn vorhanden dann "(1)" anhängen.

Forumthread: Dateiname plus Wenn vorhanden dann "(1)" anhängen.

Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 10:11:03
Lorenz
Hallo, guten Morgen

Ich möchte mittels VBA erreichen, wenn Datei existiert, dann "(1)" an den Dateinamen anhängen. Wenn die "(1)" vorhanden, dann soll "(2)" usw. angehängt werden.
Hoffe die Erklärung passt so
Grüße
Lorenz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 11:12:45
daniel
Hi
probier mal das.
Dateiendung und Dateinummer (".xlsb", 50) ggf anpassen.
dim i as long

dim x as string, y as string
x = "Dateiname mit Pfad ohne Dateiendung"

if dir(x & ".xlsb") > "" then
for i = 1 to 9999
y = x & "(" & i & ")"
if dir(y & ".xlsb") = "" then
x = y
exit for
end if
next
end if
activeworkbook.saveas x, 50


Gruß Daniel
Anzeige
AW: Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 12:15:50
Lorenz
Hallo Daniel
Vielen Dank funktioniert einwandfrei

Grüße Lorenz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige