ich möchte gerne bei meiner Exceldatei eine automatische Datensicherung einbauen. Dabei soll der Inhalt einer Tabelle in eine neue Datei geschrieben werden und im Verzeichnis "Sicherung" unter dem Dateinamen "JJMMTT - Sicherung.xls" abgespeichert werden.
Im Einzelnen stelle ich mir das so vor:
1. beim Öffnen prüfen ob Datei mit heutigen Datum (siehe oben) bereits vorhanden ist.
2. wenn nicht, Tabelle ab Zeile 6 bis letzte gefüllte Zeile (Spalte R) in eine neue Datei kopieren
3. neue Datei wie oben beschrieben abspeichern und schließen.
Bei meinen Versuchen bin auf folgende "Teillösung" gekommen:
Private Sub Workbook_Open()
Range("A6:H" & [A:H].Find("*", searchdirection:=xlPrevious).Row).Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A3")
ActiveWorkbook.SaveAs Filename:="Pfad" & "\Sicherungskopie_" & _
Format(Now, "yymmdd") & ".xls"
ActiveWindow.Close
End Sub
Mir fehlt jetzt noch die Überprüfung, ob die Datei mit dem Namen - sprich dem Tagesdatum - schon besteht. Diese Prüfung müsste vor der ganzen Routine stehen. Außerdem habe ich auch nicht hinbekommen das Datum vor den restlichen Dateinamen zu setzen.
Für Ideen und Vorschläge bin ich dankbar.
Wenn es auch noch Verbesserungsvorschläge zum bisherigen Code gibt, freue ich mich ebenfalls darüber...
Grüße
olivers_free