Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ActiveWorkbook.Savej abbrechen wenn Fehler

ActiveWorkbook.Savej abbrechen wenn Fehler
28.10.2015 08:16:52
Henner
Guten Tag zusammen,
ich habe folgenden Code in 'DieseArbeitsmappe', um vor dem Schliessen das Speichern nicht immer bestätigen zu müssen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
Das Speichern soll jedoch nur ausgeführt werden wenn es auch möglich ist. Ist zum Beispiel das Netzwerk nicht verfügbar o.ä., läuft es im Moment auf einen VBA Fehler hinaus. Diesen Fehler würde ich gerne vermeiden und stattdessen die von Excel generierte Meldung anzeigen lassen.
Vielen Dank & Gruss, Henner

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveWorkbook.Savej abbrechen wenn Fehler
28.10.2015 08:42:29
Martin
Hallo Henner,
eigentlich reicht eine Zeile "On Error Resume Next" über "ActiveWorkbook.Save" aus.
Hier mal ein Beispiel mit entsprechender Rückmeldung:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo 1
ActiveWorkbook.Save
Exit Sub
1   MsgBox "Leider ist ein Fehler beim Speichern von '" & ThisWorkbook.Name & "' aufgetreten.",  _
vbExclamation + vbOKOnly
End Sub
Viele Grüße
Martin

Anzeige
AW: ActiveWorkbook.Savej abbrechen wenn Fehler ERL
28.10.2015 09:23:06
Henner
Guten Morgen Martin,
allem Anschein nach funktioniert es einwandfrei :-)
Besten Dank & schönen Tag noch! Henner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige