Herbers Excel-Forum - das Archiv

Bei nicht speichern Fehler abfangen



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

Excel-Beispiele zum Thema "Bei nicht speichern Fehler abfangen"
Zelleingaben speichern Die "personl"-Arbeitsmappe ausgeblendet speichern
Formeln mit Zelladressen speichern Bestätigung beim Speichern unterdrücken.
Arbeitsmappe unter dem Text eines Zelleintrags speichern Einzelnes Tabellenblatt speichern
Mappe unter Zelldatum speichern Arbeitsmappe doppelt speichern
Arbeitsmappe unter Namen speichern Programmabbruch bei Überspeichernabfrage verhindern