AW: offene Datei automatisch abspeichern
21.05.2016 21:06:27
Gerhard
Private Sub Workbook_Open()
'* H. Ziplies *
'* 07.04.2011 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
Dim StDatei As String ' Variable für Dateinamen
Dim StPhad As String ' Variable für Pfad
StDatei = ThisWorkbook.Name ' Dateiname auf Variable schreiben
StPhad = ThisWorkbook.Path ' Pfad auf Variable schreiben
Dim StDateiV As String ' Dateiname Neu
' überprüfen ob Sicherheitskopie schon vorhanden
' nur notwendig falls Datei in der selben Minute nochmal geöffnet wird
' von Berti Koern
Dim Fso As Object
StDateiV = Format(Now, "YY-MM-DD") & "_" & Format(Now, "hh-mm") & "_" & StDatei
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(StPhad & "\" & StDateiV) Then
' vorhandene Arbeitsmappe löschen, wird nicht in den Papierkorb verschoben
Kill StPhad & "\" & StDateiV
End If
' es werden als Trennzeichen keine Punkte verwendet
' ich bin der Auffassung im Dateinamen sollte es nur einen Punkt geben
' die Reihenfolge Jahr, Monat und Tag hat den Vorteil,
' die Sicherungen von folgenden Tagen stehen im Windows Explorer hintereinander
ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & StDateiV
End Sub
Danke, leider komme ich nicht wirklich weiter. ich weiß nicht wo ich das einfügen soll, dass die Datei auch alle 10 min ein backup erstellt