Supportnet / Forum / Tabellenkalkulation

Hallo Leute, ich möchte gerne, dass beim Speichern in Excel eine zusätzliche "Sicherheitskopie" automatisch an einem von mir angegebenen Ort abgespeichert wird. Besteht dort bereits eine Datei mit diesem Namen soll sie überschrieben werden. Wie könnte ich das hinbekommen ??? Vielen Dank für eure Hilfe. Viele Grüße

speichern dann alle daten mit copy und paste nochmal in das andere verzeichnis...
warum immer so kompliziert ^^

und mit VBA gehts...

Hi olli-ki,

kopiere nachfolgenden Code in das VBA Projekt "DieseArbeitsmappe" der Datei, von der aus die Sicherungskopie erstellt werden soll.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Alter_Dateiname = ActiveWorkbook.Name
Alter_Blattname = ActiveSheet.Name
Workbooks.Add
Neuer_Dateiname = ActiveWorkbook.Name
Neuer_Blattname = ActiveSheet.Name
Windows(Alter_Dateiname).Activate
Cells.Copy
Workbooks(Neuer_Dateiname).Activate
Sheets(Neuer_Blattname).Range("A1").PasteSpecial _
Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:SicherungenSicherheitskopie_XYZ.xls"
Application.DisplayAlerts = True
ActiveWorkbook.Close
Range("A1").Select
End Sub

Bei dem Code wird immer vor dem Speichern eine neue Datei angelegt und der komplette Inhalt Deiner Datei hinein kopiert. Danach wird die neu erstellte Datei unter einem vorgegebenen Pfad und Namen gespeichert und geschlossen. Du musst den Pfad und den Dateinamen allerdings noch anpassen. Lösche dazu in dem Code in der Zeile

ActiveWorkbook.SaveAs "C:SicherungenSicherheitskopie_XYZ.xls"

den Pfad und den Dateinamen und schreibe Deinen Pfad und Dateinamen zwischen die beiden Anführungsstriche ("").

Ich hoffe, Du kommst klar. Bei Fragen oder Problemen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in Anleitung zum VBA Projekt “Diese Arbeitsmappe" nach. Dort steht einen bebilderte Anleitung dazu.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
dein VBA Skript hat wunderbar funktioniert. Vielen Dank für deine Hilfe :-)

• Excel Dateien ungewollt schreibgeschützt
• Dateien kopieren
• Speicherung von IP-Adressen
• Mein rechner spinnt brauche dringent hilfe