beim speichern forlaufende Nummer vergeben
15.02.2016 08:45:24
david.a2k
wie kann ich folgendes Problem lösen:
eine Datei soll immer mit dem Zusatz der aktuellen KW abgespeichert werden (z.B. Dateiname_KW10).
Wenn die Datei aber in der gleichen KW nochmals gespeichert wird, soll eine fortlaufende Nummerierung an den Dateinamen gehängt werden (beginnend mit 2):
Also z.B. Dateiname_KW10_2
Mein Code sieht derzeit so aus (KW ist eine Variable der weiter oben die aktuelle KW zugewiesen wird:
If Dir("Pfad\Dateiname KW" & KW) "" Then
ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname KW" & KW& "_2", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Else
ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname KW" & KW, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
das funktioniert ja aber nur einmal für den zweiten Speichervorgang.
Wie kann man das variabel gestalten?
Danke und Gruß
David