Speichern unter fortlaufender Nummer
10.12.2006 15:18:32
DieterG.
folgendses Makro habe ich bei meinen Recherchen gefunden.
Das aktive Tabellenblatt wird beim jeden Klick auf den Button "Speichern" in einen bestimmten Ordner (ThisWorkbook.SaveAs Range("E1").Value ) fortlaufend z.B. 0001, 0002, 0003 gespeichert.
Wenn ich aber das Datei schließe und wieder öffne und wieder auf speichern klicke, kommt der Hinweis: "Die Datei mit dem Namen 0001 existiert schon an diesem Platz. Soll sie ersetzt werden?"
Läßt sich dieses Makro so abändern, daß es wie in meinem Bespiel beschrieben nach dem öffnen bei 0004 weitermacht und nicht wieder bei 0001 anfängt?
Sub Speichern()
Dim sFile As String, sOld As String
sOld = ThisWorkbook.Name
If IsNumeric(Mid(sOld, 9, 4)) Then
sOld = Mid(sOld, 9, 4)
Else
sOld = 0
End If
sOld = Format(CInt(sOld) + 1, "0000")
sFile = Range("A1").Text & "_"
sFile = sFile & Range("B1").Text & "_"
sFile = sFile & sOld & ".xls"
ThisWorkbook.SaveAs Range("E1").Value & _
"\" & sFile
End Sub
Danke für Euerer Hilfe
Gruß Dieter