Ecxel automatisch auf 2 Laufwerke speichern?

Computer: Software & Programmierung Office Software
1

Vor einiger Zeit hatte ich diese Frage gestellt und habe dank geduldiger www-User auch eine Lösung erhalten.
Da ich dazu noch eine Frage habe, wollte ich den Artikel wieder aktivieren.
Dies ist leider nicht möglich, da er archiviert ist.
/t/ecxel-automatisch-auf-2-laufwerke-speichern/5780898
Nun meine Frage:
Das abspeichern auf meine zweite Festplatte funktioniert.
Wenn ich allerdings die gespeicherte Datei ansehe und verlasse, erhalte ich jedesmal eine Fehlermeldung.
Microsoft Visual Basic, Laufzeitfehler 1004, Zugriff auf „XY“ verweigert. Ich kann dann Beenden oder Debuggen.
Was hat das zu bedeuten, bzw. kann ich eine Einstellung vornehmen, dass diese Meldung nicht erscheint?

2

/t/ecxel-automatisch-auf-2-laufwerke-speichern/5780898
Das abspeichern auf meine zweite Festplatte funktioniert.
Wenn ich allerdings die gespeicherte Datei ansehe und
verlasse, erhalte ich jedesmal eine Fehlermeldung.
Microsoft Visual Basic, Laufzeitfehler 1004, Zugriff auf „XY“
verweigert. Ich kann dann Beenden oder Debuggen.

hallo fmjka,

möglich daß Excel nicht will daß Excel nicht will daß man eine Kopie der Orginalmappe unter gleichen namen der der mappe abspeichert.

probier mal dieses:

Option Explicit
'
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
if ThisWorkbook.FullName "D:\Sicherung\" & ThisWorkbook.Name Then
 ThisWorkbook.SaveCopyAs "D:\Sicherung\" & ThisWorkbook.Name
end if
Application.DisplayAlerts = True
End Sub

Gruß
Reinhard

3

Hallo Reinhard,
bin leider erst jetzt dazu gekommen, dass auszuprobieren.
Leider habe ich wieder das Problem, dass ich in Deinem Hinweis nicht sehen kann, wo die Eingabesätze anfangen und aufhören und ich wieder Fehlermeldungen bekomme.
Sollen die Zeilen so aussehen?
Ich nummeriere hier mal:

  1. Zeile
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Zeile
    Application.DisplayAlerts = False
  3. Zeile
    if ThisWorkbook.FullName „D:\Eigene Dateien\Excel Sicherungen“ &
    ThisWorkbook.Name Then
  4. Zeile
    ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ & ThisWorkbook.Name end if
  5. Zeile
    Application.DisplayAlerts = True
  6. Zeile
    End Sub

Beste Grüße Franz

4

Leider habe ich wieder das Problem, dass ich in Deinem Hinweis
nicht sehen kann, wo die Eingabesätze anfangen und aufhören
und ich wieder Fehlermeldungen bekomme.

Hallo Franz,

http://www.image-load.net/pic.php?type=jpg&f=d07fbcb…

Gruß
Reinhard

5

Herzlichen Dank. Jetzt läuft es wunderbar, ohne Fehlermeldung.

6

Hallo Reinhard,
ich hab mich zu früh gefreut.
Die Fehlermeldung aus meinen Eingangspost kommt leider immer noch.
Es wird zwar gespeichert, aber wenn ich die gespeicherte Datei öffne und wieder schließe kommt die Meldung.
Ist ein wenig nervig.
Vielleicht gibt es ja noch eine Lösung?