Hallo,
ich habe mal eine Frage an die Excel - Experten.
Ich habe mir eine, für mich als Laie, schon umfangreiche und kompliziert Excel Tabelle angelegt. Diese ist auf dem Desktop Festplatte C gespeichert und wird fast täglich erweitert. Zur Sicherheit möchte ich, dass Excel diese Datei beim schließen auch zusätzlich noch auf meine zweite Festplatte D abspeichert. Wie kann ich das einrichten?
Vorab schon herzlichen Dank für eure Hilfe.
Diese ist auf dem Desktop
Festplatte C gespeichert und wird fast täglich erweitert. Zur
Sicherheit möchte ich, dass Excel diese Datei beim schließen
auch zusätzlich noch auf meine zweite Festplatte D
abspeichert.
Hallo Fmjka,
Alt+F11, links Doppelklick auf „Diese Arbeitsmappe“, Code einfügen, Pfad im Code anpassen, Editor schließen.
Option Explicit
’
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Sicherung“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Gruß
Reinhard
Hallo,
Danke für die schnelle Antwort.
Leider bin ich kein PC/Excel-Experte und komme nicht weiter.
Also, das Fenster „Test Arbeitsmappe“ (Code) hat sich geöffnet.
Was muss ich dort einfügen? (Den zweiten Speicherort?)
Wo finde ich die weiteren Auswahlen?
Option Explicit usw.?
Entschuldigung, wenn ich so naiv Frage. Kenn mich halt nicht so gut aus.
DANKE, wenn man mir noch weiterhilft.
Hallo fmjka,
Also, das Fenster „Test Arbeitsmappe“ (Code) hat sich
geöffnet.
gut.
Was muss ich dort einfügen? (Den zweiten Speicherort?)
Links siehst du eine Liste deiner VBA-Projekte.
Sie ist aufgebaut wie im Explorer Verzeichnisbaum, d.h. wenn da Pluszeichen zu sehen sind, draufklicken, dann werden Unterpunkte sichtbar usw.
Dein Projekt erkennst du am Dateinamen in der Zeile
VBAProjekt(Dateiname)
Dort ggfs auf Pluszeichen klicken bis als Unterpunkt zu deinem Projekt „Diese Arbeitsmappe“ erscheint.
Dann einen Doppel klick auf „Diese Arbeitsmappe“.
Dann den Code reinkopieren in das große weiße Feld rechts.
Im Code kannst du dann noch „D:\Sicherung“ abändern auf den Pfad den du willst, das „“ am Ende nicht vergessen!
Wenn du wissen willst, was da die Codewörter bewirken, stell den Curser in das Wort hinein und drücke F1 oder such nach dem Wort in der VBA-Hilfe.
Option Explicit
'
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "D:\Sicherung\" & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Entschuldigung, wenn ich so naiv Frage. Kenn mich halt nicht
so gut aus.
Kein Problem, wir kochen alle nur mit Wasser 
Gruß
Reinhard
Hallo Reinhard,
deine Hilfe find ich super, aber ich komme nicht weiter.
Hab jetzt eine Stunde probiert aber keinen Erfolg.
Ich habe mir eine Excel-Testdatei erstellt und gespeichert.
Microsoft VisualBasic Fenster ist geöffnet.
Links, unter Projekt-VBAProject steht der Eintrag VBAProject (Test.xls) mit einem Pluszeichen.
Nach dem öffnen des Pluszeichens erscheint ein Ordner Microsoft Excel Objekte mit den Unterordnern:
Diese Arbeitsmappe
und vier weitere, Tabelle 1 - 4.
Wenn ich einen Doppelklick auf diese Arbeitsmappe mache, springt der Cursor in das rechte große weiße Feld. Aber es entsteht kein Eintrag.
Dann komme ich nicht weiter.
Wo ist der Code den ich kopieren soll?
und was bedeutet
Option Explicit
'
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "D:\Sicherung\" & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Hast du noch mal Zeit und Geduld zu helfen?
DANKE
Hallo fmjka,
Wenn ich einen Doppelklick auf diese Arbeitsmappe mache,
springt der Cursor in das rechte große weiße Feld. Aber es
entsteht kein Eintrag.
Dann komme ich nicht weiter.
Wo ist der Code den ich kopieren soll?
steht ganz unten und beginnt mit
Option Explicit
Pfad ändern nicht vergessen
und was bedeutet
Option Explicit
’
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Sicherung“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
das ist der Code
Gruß Wolfgang
So steht es jetzt bei mir rechts im weißen Feld.
Option Explicit
’
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Gespeichert wird aber nichts.
So steht es jetzt bei mir rechts im weißen Feld.
Gespeichert wird aber nichts.
Hallo fmjka,
der Code funktioniert bei mir.
Mache eine Kopie deiner Mappe, lösche in den Blättern vieles und lade die Mappe hoch mit rapidshare, siehe FAQ:2606
Gruß
Reinhard
Hallo Fmjka,
da steht der falsche Code, das muß da stehen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Gruß
Reinhard
Ich hab das jetzt so rechts eingefügt.
In den oberen „Überschriftsspalten“ steht:
Workbook und rechts Before Close
Die Zeile
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ &
ist in roter Schrift dargestellt. Warum auch immer?
Wenn ich dann auf Datei und schließen und zurück zu Microsoft Excel klicke, erscheint ein Fehlerfenster
Fehler beim Kompilieren
Syntaxfehler
Hallo fmjka,
In den oberen „Überschriftsspalten“ steht:
Workbook und rechts Before Close
das ist korrekt.
Die Zeile
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ &
ist in roter Schrift dargestellt. Warum auch immer?
Weil nach „&“ nix mehr steht.
Wenn ich dann auf Datei und schließen und zurück zu Microsoft
Excel klicke, erscheint ein Fehlerfenster
Fehler beim Kompilieren
Syntaxfehler
Ich weiß echt nicht wodran es hängt, EXAKT das Nachfolgende muß da stehen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Wenn du das nicht hinkriegst muß ich dir wohl doch einen Sub Seven schicken und das selbst auf deinem PC tun )
Gruß
Reinhard
Nachtrag: Wenn ich die Fehlermeldung mit o.k. beantworte, wird die obere Zeile
Private Sub Workbook_BeforeClose(Cancel As Boolean)
gelb unterlegt dargestellt.
Vielleicht hilft das noch weiter?
Vermittler/Dolmetscher gesucht
Nachtrag: Wenn ich die Fehlermeldung mit o.k. beantworte, wird
die obere Zeile
Private Sub Workbook_BeforeClose(Cancel As Boolean)
gelb unterlegt dargestellt.
Vielleicht hilft das noch weiter?
Hallo Fmjka,
ich habe alles getan um dir die Lösung zu zeigen, warum du das nicht umsetzen kannst ist mir sehr unklar, besser kann ich es nicht schildern.
Vielleicht kann ein Andrer hier meine Aussagen so für dich dolmetschen daß du sie auch umsetzen kannst.
Gruß
Reinhard
Hier ist mein „fast“ letzter Versuch.
Vielleicht hilft der Link weiter.
http://rapidshare.com/files/365069292/Hardcopy_f__r_…
Hier ist mein „fast“ letzter Versuch.
Vielleicht hilft der Link weiter.
http://rapidshare.com/files/365069292/Hardcopy_f__r_…
Hallo Fmjka,
lesen, umsetzen:
/t/ecxel-automatisch-auf-2-laufwerke-speichern/57808…
Gruß
Reinhard
Hallo,
es hat geklappt !!!
Ich hatte: ThisWorkbook.Name nicht in der Zeile mit meinem Ordner-Link, sondern in einer neuen Zeile stehen, da das auch so in deinem Mail gekommen war.
An euch beiden nochmals tausend Dank. Wenn ihr um die Ecke wohnen würdet, hätt ich glatt ne Kiste Bier spendiert.