Datei speichern / Fehlerbehandlung
17.03.2008 20:01:00
Mathias
folgenden Code verwende ich, um meine Exceldatei beim Speichern ohne große Rückfragen zu speichern.
Public Sub Dateispeichern()
On Error GoTo Ende
Application.StatusBar = "Speichern speichern..."
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.StatusBar = False
Exit Sub
Ende:
Application.StatusBar = False
MsgBox ("Es ist ein Fehler beim Speichern aufgetreten.")
On Error GoTo 0
End Sub
Ich würde den Code gern noch ein wenig erweitern hinsichtlich Fehlerbehandlung,
Z.B. könnte ich mir ausführlichere Fehlermeldungen vorstellen oder auch eine Abfrage im Fehlerfall, ob der Speichervorgang wiederholt oder abgebrochen werden soll.
Hat jemand da sowas in der Art schon realisiert?
Viele Grüße und vielen Dank für eure Tipps
Mathias