was ist falsch?
17.08.2004 12:53:06
Andy81
was ist an der Schleife im folgendem Code falsch? Eigentlich funtioniert der Vergleich der Dateinamen (siehe If..) aber sobald i=1 und die Datei gespeichert ist, sollte im nächsten Durchlauf i=2 werden. Das Problem ist, dass i=1 bleibt und Excel immer wieder fragt ob die Datei mit dem Zusatz 1 überschrieben werden soll. Was läuft da schief?
Wie könnte man die Schleife ändern, damit sie nur solange durchläuft bis der vorhandenen Dateiname ungleich dem neuen Dateinamen ist?
Sub Datei_Speichern()
Dim sFile As String
Dim SPath As String
Dim i As Integer
ActiveWorkbook.Sheets("PKR blanko").Copy
Destination = NewWorkbook
i = 0
Do Until i = 3
ActiveWorkbook.Sheets("PKR blanko").Range("D1").Value = "Rev_" & i
sFile = ActiveWorkbook.Sheets("PKR blanko").Range("A1").Value & "_" & Range("D1").Value
sFile = Format(sFile) & ".xls" 'Format der Datei: .xls
SPath = "o:\...\fertig\"
If Dir("o:\...\fertig\*.xls") = sFile _
Then i = i + 1 _
Else: ActiveWorkbook.SaveAs SPath & sFile
Loop
ActiveWorkbook.Close SaveChanges = False
MsgBox "PKR abgeschlossen und gespeichert!"
End Sub
Vielen Dank
Andy81