SaveAs mit variablem Dateinamen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: SaveAs mit variablem Dateinamen
von: Ralf
Geschrieben am: 30.04.2015 18:39:54

Hallo,
wie kann ich folgende Zeile so umschreiben, dass die zu speichernde Datei nicht "1.xlsm" heisst, sondern einen alternativen Namen (welcher ist mir egal) erhält, wenn "1.xlsm" schon vorhanden ist?
ActiveWorkbook.SaveAs "G:\Teiledienst\AZ\1.xlsm"
Danke vorab,
Ralf

Bild

Betrifft: AW: SaveAs mit variablem Dateinamen
von: Luschi
Geschrieben am: 30.04.2015 19:08:39
Hallo Ralf,
bei mir klappt das so:


Sub test123()
    Dim i As Integer
    For i = 1 To 2500
        If Dir("G:\Teiledienst\AZ\" & i & ".xlsm", vbNormal) = "" Then
           Exit For
        End If
   Next i
   'MsgBox i
   ActiveWorkbook.SaveAs "G:\Teiledienst\AZ\" & i & ".xlsm", 52
End Sub
Gruß von luschi
aus klein-Paris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "SaveAs mit variablem Dateinamen"