Ich möchte mittels VBA eine Datei speichern. Name der Datei solle folgende Struktur haben: Kunde_Rev_nr.xls
Dabei soll "nr" eine Ziffer sein. Es soll vor dem Speichern überprüft werden, ob es schon eine Datei mit dem Namen Bsp.: Kunde1_Rev_1.xls gibt. Wenn ja soll soll die zu speichernede Datei unter Kunde1_Rev_2.xls gespeichert werden. Die Nummer soll aber mit dem Vorsatz "Rev_" in die Zelle "D1" eingetragen werden.
Der Dateiname wird dann datraus generiert.
Kann mit jemand helfen?
Unten der bisherige Code. Das Speichern funtioniert.. nur die Benennung auch.. aber nicht das Überprüfen und die Änderung der Nummer.
Sub Datei_Speichern()
Dim sFile As String
Dim SPath As String
ActiveWorkbook.Sheets("PKR blanko").Copy
Destination = NewWorkbook
i = 1
Do
ActiveWorkbook.Sheets("PKR blanko").Range("D1") = "Rev_" & i
i = i + 1
Loop
SPath = "o:\...\fertig" & "\"
sFile = ActiveWorkbook.Sheets("PKR blanko").Range("A1").Value & "_" & Range("D1").Value
sFile = Format(sFile) & ".xls"
ActiveWorkbook.SaveAs SPath & sFile
End Sub
Danke Im Voraus. Gruß Andy81