Bei nicht speichern Fehler abfangen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: XL 8
nach unten

Betrifft: Bei nicht speichern Fehler abfangen
von: Jörg G
Geschrieben am: 29.04.2002 - 14:29:51

Hi Leute,

in folgenden Macro möchte ich die Datei speichern und dann Excel
schliessen.
Ich kann den Fehler nicht abfangen wenn bei schon vorhandener Datei die "Nein"-Taste angwählt wird.
Wo kann hier der Fehler liegen.

Macro:

Sub schliessen()
Dim strVerzeichnis As String
Dim Aktuell_Datei As String
Aktuell_Datei = ActiveWorkbook.Name
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Sheets("Startseite").Range("J12").Value, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
On Error GoTo 0
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.CommandBars("Toolbar List").Enabled = True
Application.CommandBars("worksheet menu bar").Enabled = True
Application.CommandBars.Item("Standard").Visible = True
Application.CommandBars("Formatting").Enabled = True
Application.CommandBars("Drawing").Enabled = True
On Error Resume Next
ThisWorkbook.Names.Add "OK", RefersTo:=Range("A1"), Visible:=False
Workbooks(Aktuell_Datei).Close False
On Error GoTo 0
ThisWorkbook.Close
Exit Sub
ErrorHandler: MsgBox "Bitte geben Sie zum speichern eine Equipment-Nr. ein!" & vbCrLf & "Oder Bitte Ordner Eigene Dateien anlegen"
Exit Sub
End Sub

Danke Euch im Voraus

nach oben   nach unten

Re: Bei nicht speichern Fehler abfangen
von: Michael
Geschrieben am: 29.04.2002 - 14:57:29

Hallo, Dein ErrorHandler wir doch nie angesprungen. Du hast GoTo 0 und Resume Next. Beides sollte man eh vermeiden. Gruß Micha

nach oben   nach unten

Re: Bei nicht speichern Fehler abfangen
von: Jörg G
Geschrieben am: 29.04.2002 - 15:34:01

Auch wenn ich nur eines der Funktionen benutze bekomme ich den Fehler nicht abgefangen. Jörg

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bei nicht speichern Fehler abfangen"