Excel - Variabler Dateinamen

Toll wäre aber ( weil diese Tabelle mit den Datumsangaben im Namen geht dann an weitere Kollegen - und die können nur am Datumszusatz sehen welche AKTUELL ist) wenn die Backupspeicherung auch den aktuellen Stand der Arbeit ausweisen würde.

Na dann gibt Ihnen doch einfach die letzte Datei die einen Datum/Uhrzeit-Namen hat!

Der Code macht doch ganz simpel eine Kopie der Datei... ist doch genau das was Du willst.

Der einzigste Unterschied zu Deiner bisherigen Vorgehensweise ist nur das die Datei mit der Du arbeitest eben keinen Datum/Uhrzeit-Namen hat! Alle anderen sind fixe Sicherheits-Kopien, daher versieht mein Code die Datei auch gleich mit einem Schreibschutz.

Andreas.

Aber Sorry genau das macht Dein Skript bei mir nicht.

Der Code erzeugt einen Backup meiner Datei+Datum - aber ohne die gemachten Änderungen zu übernehmen.

Ich rufe meine Fahrzeuge.xls auf - verändere darin in einer Zelle einen Wert und speichere und schließe die Tabelle.

Es wird eine Backup Kopie abgelegt mit Namen 170129_Fahrzeuge 2017.01.29 12-39-53.xls.

Wenn ich diese Datei öffne sind meine gemachte Änderung nicht in der Tabelle zu sehen.

Stimmt, das ist korrekt, ich mache ja die Kopie vor dem Speichern, nicht danach.

Geht aber auch, nur mit Office2007 ist es ein bißchen tricky, das hat noch kein AfterSave.

Ersetze den bisherigen Code durch den Code unten.

Andreas.

Option Explicit

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim fso As Object

Dim FName As String

'Don't make a copy if failed

If Not Success Then Exit Sub

'Create a backup file name

Set fso = CreateObject("Scripting.FileSystemObject")

FName = fso.BuildPath(ThisWorkbook.Path, _

fso.GetBaseName(ThisWorkbook.Name) & _

" " & Format(Now, "yyyy.mm.dd hh-mm-ss") & _

"." & fso.GetExtensionName(ThisWorkbook.Name))

'Make a copy if not already exists

If Not fso.FileExists(FName) Then fso.CopyFile ThisWorkbook.FullName, FName

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Excel 2007 and before did not have a Workbook_AfterSave event

If Val(Application.Version) < 14 Then

Application.OnTime Now, "'" & Me.CodeName & ".Workbook_AfterSave 1'"

End If

End Sub

Ich habe eine Excel Tabelle in welche ich täglich Daten einlese. Wenn ich mit meiner Bearbeitung fertig bin und die Tabelle schließe - benenne ich diese dann manuell um.

Warum nicht eine fortlaufende Sicherheitskopie bei vor dem Speichern erstellen?

Andreas.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Makes a continuous backup of this file

Dim fso As Object 'Scripting.FileSystemObject

Dim FName As String

'Make a backup only if the file would be overwritten

If SaveAsUI Then Exit Sub

'Don't create a backup if the file isn't changed!

If ThisWorkbook.Saved Then

'Prevent that Excel saves the file!

Cancel = True

Exit Sub

End If

'Create the backup name

Set fso = CreateObject("Scripting.FileSystemObject")

FName = fso.BuildPath(ThisWorkbook.Path, _

fso.GetBaseName(ThisWorkbook.Name) & _

" " & Format(Now, "yyyy.mm.dd hh-mm-ss") & _

"." & fso.GetExtensionName(ThisWorkbook.Name))

'Don't overwrite an existing backup

If Not fso.FileExists(FName) Then

fso.CopyFile ThisWorkbook.FullName, FName

'Write protect it

SetAttr FName, fso.GetFile(FName).Attributes Or vbReadOnly

End If

End Sub

Danke für die Antwort

Aber Sorry genau das macht Dein Skript bei mir nicht.

Der Code erzeugt einen Backup meiner Datei+Datum - aber ohne die gemachten Änderungen zu übernehmen.

Ich rufe meine Fahrzeuge.xls auf - verändere darin in einer Zelle einen Wert und speichere und schließe die Tabelle.

Es wird eine Backup Kopie abgelegt mit Namen 170129_Fahrzeuge 2017.01.29 12-39-53.xls.

Wenn ich diese Datei öffne sind meine gemachte Änderung nicht in der Tabelle zu sehen.

Wenn ich die Fahrzeuge.xls öffne und wieder speichere wird erneut eine Bachup Datei mit abgelegt - diese beinhaltet dann die gemachten Änderungen.

Also kann ich nicht gleich die gemachte Backup Datei versenden - da diese NICHT den aktuellen Stand meiner Tabelle beinhaltete.

Gruß

Frank

PS Hie Dein Privat Sub welchen ich anwende:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Macht eine kontinuierliche Sicherung dieser Datei

Dim fso As Object 'Scripting.FileSystemObject

Dim FName As String

'Erstellen Sie eine Sicherung nur, wenn die Datei überschrieben werden soll

If SaveAsUI Then Exit Sub

'Erstellen Sie keine Sicherung, wenn die Datei nicht geändert wird!

If ThisWorkbook.Saved Then

'Verhindern, dass Excel die Datei speichert!

Cancel = True

Exit Sub

End If

'Erstellen Sie den Backup-Namen

Set fso = CreateObject("Scripting.FileSystemObject")

FName = fso.BuildPath(ThisWorkbook.Path, _

fso.GetBaseName(ThisWorkbook.Name) & _

" " & Format(Now, "yyyy.mm.dd hh-mm-ss") & _

"." & fso.GetExtensionName(ThisWorkbook.Name))

'Überschreiben Sie keine bestehende Sicherung

If Not fso.FileExists(FName) Then

fso.CopyFile ThisWorkbook.FullName, FName

'Schreibe es



SetAttr FName, fso.GetFile(FName).Attributes Or vbReadOnly

'SetAttr FName, fso.GetFile(FName).Attributes Or vbNormal

'SetAttr FName, fso.GetFile(FName).Attributes Or vbArchive

End If

End Sub

Hallo Andreas

Habe Deine Vorschläge in mein Excel Makro eingearbeitet und NEU angepasst.

Zu dem Privat Sub welchen Du mir zum automatischen erstellen einer Backup Datei erstellt hast - funktioniert toll -

ABER - ich würde gern meine aktuell geöffnete Datei (mit samt den gemachten Änderungen) beim schließen mit den Datums Zeitangaben speichern - gibt es dafür auch eine Lösung??

Durch Deine Tips bin ich jetzt soweit das der Dateiname welchen ich verarbeite dem Makro egal ist.

z.B.

Ich arbeite in "Fahrzeuge 2017.01.27 17-52-44.xls" --> verändere etwas und wenn ich die Datei speichere sollte der Dateiname "Fahrzeuge 2017.01.27 ??-??-??.xls" sein.

Kann ich Dich nochmal um Hilfe bitten.

Danke

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Macht eine kontinuierliche Sicherung dieser Datei

Dim fso As Object 'Scripting.FileSystemObject

Dim FName As String

'Erstellen Sie eine Sicherung nur, wenn die Datei überschrieben werden soll

If SaveAsUI Then Exit Sub

'Erstellen Sie keine Sicherung, wenn die Datei nicht geändert wird!

If ThisWorkbook.Saved Then

'Verhindern, dass Excel die Datei speichert!

Cancel = True

Exit Sub

End If

'Erstellen Sie den Backup-Namen

Set fso = CreateObject("Scripting.FileSystemObject")

FName = fso.BuildPath(ThisWorkbook.Path, _

fso.GetBaseName(ThisWorkbook.Name) & _

" " & Format(Now, "yyyy.mm.dd hh-mm-ss") & _

"." & fso.GetExtensionName(ThisWorkbook.Name))

'Überschreiben Sie keine bestehende Sicherung

If Not fso.FileExists(FName) Then

fso.CopyFile ThisWorkbook.FullName, FName

'Schreibe es



'SetAttr FName, fso.GetFile(FName).Attributes Or vbReadOnly

SetAttr FName, fso.GetFile(FName).Attributes Or vbNormal

'SetAttr FName, fso.GetFile(FName).Attributes Or vbArchive

End If

End Sub