Immer Sicherungskopievor Makro
jens
ich arbeite öfter mit Makros und wenn man da einen Fehler hat, kann man das ja nicht mehr Rückgängig machen.
Deshalb würde ich gerne vor Ausführung eines Makros immer die Datei unter gleichen Namen mit Datum und Uhrzeit (sekunden auch) wegspeichern (es soll als Fenster aber die aktuelle Datei stehen bleiben)
Ich habe mal
Sub Sicherungskopie_speichern()
Dim NeudatName As String
Dim msg As String
Dim Jetzt As Date
Jetzt = Now()
NeudatName = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
NeudatName = NeudatName & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), "00") & _
Format(Second(Jetzt), "00")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & NeudatName & ".xls")
msg = MsgBox("Datei wurde unter " & (ThisWorkbook.Path & "\" & NeudatName & ".xls") & " _
gespeichert")
End Sub
Ergoogelt aber es bleibt vorne nicht der ursprüngliche Dateiname stehen und nach dem Makro ist die neue Datei geöffnet.Ich bin mir auch nicht ganz sicher, ob man das im Verzeichnis der Datei oder z.B. unter C:\ speichern sollte? Wie wäre das der Unterschied?
Optimal wäre es natürlich, wenn man beim schließen der Datei die ganzen Sicherungen gleich mit killen könnte.
Weiß jemand eine Lösaung?
Vielen Dank und viele Grüße
Jens