Supportnet / Forum / Tabellenkalkulation

Hallo an Alle Habe folgende frage. Ist es möglich von einer ganzen Exceltabelle wo bspw. auf C:\Eigne Dateien gespeichert ist zur gleichen Zeit auf bspw. auf E:\Sicherung. gepeichert werden kann? Praktisch ein speicherabbild der Datei. Für Eure Antworten besten Dank im Voraus Gruß Noldi

Hallo Noldi,

Sicherung beim öffnen

Gruß hajo

Hallo Hajo und alle anderen

Das Funktioniert in einer Leeren Tabelle prima.
Bei meiner Tabelle heißt es

Fehler beim Kompilieren

Mehrdeutiger Name: Workbook_Open

Kann jemand helfen wie man das umgehen kann?

Gruß Noldi

Hallo Noldi,

die Akton Open darf nur einmal imm Code sein.

Gruß Hajo

Hallo Noldi,
in das Codefenster von "Diese Arbeitsmappe" einfügen.
Beim schließen der Datei wird eine Sicherungskopie erstellt.
Pfad "C:\Dokumente und Einstellungen\Admin\Desktop) ändern!!
Gruß
fedjo

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Sicherungskopie erstellen
ActiveWorkbook.Save
Application.DisplayAlerts = False

Dim FName As String
Dim OldComment As String

OldComment = ActiveWorkbook.Comments
ActiveWorkbook.Comments = "Sicherungskopie von " & _
ActiveWorkbook.Name & _
", erstellt von der Backup-Prozedur."

'Name für die Sicherungskopie aus dem Namen der Originaldatei bilden
FName = Left(ActiveWorkbook.Name, _
InStr(ActiveWorkbook.Name, ".")) & _
"(backup).xls"

ActiveWorkbook.SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Admin\Desktop\" & FName

ActiveWorkbook.Comments = OldComment 'Wiederherstellen der alten Kommentare

End Sub

• Serienbrieffunktion in Exceltabelle?
• Verknüpfungen alle 10 min aktualisieren
• Von ganzer Exceltabelle automatisch ein speicherabbild auf andere Festplatte
• Von ganzer Exceltabelle automatisch ein speicherabbild auf andere Festplatte
• Speicherabbild einer Exceltabelle