Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige