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