SaveAs mit variablem Dateinamen

• SaveAs mit variablem Dateinamen von Ralf vom 30.04.2015 18:39:54
• AW: SaveAs mit variablem Dateinamen - von Luschi am 30.04.2015 19:08:39

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

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

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