Gruppe
Datei
Bereich
Schließen
Thema
Arbeitsmappe ohne Rückfrage schließen
Problem
Wie kann ich eine Arbeitsmappe ohne Rückfragen, ob die Datei gespeichert werden soll und ob Daten in der Zwischenablage bleiben sollen, schließen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Schliessen1()
On Error GoTo ERRORHANDLER
Application.CutCopyMode = False
ActiveWorkbook.Close True
Exit Sub
ERRORHANDLER:
MsgBox "Speichern nicht möglich!"
End Sub
Sub Schliessen2()
Application.CutCopyMode = False
ActiveWorkbook.Close False
End Sub