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

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

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

Hallo Daniel
Vielen Dank funktioniert einwandfrei

Grüße Lorenz