folgenden Code verwende ich in "Diese Arbeitsmappe", um alle Blätter auszublenden, die Datei automatisch zu speichern und zu schließen. Das Ganze funktioniert wunderbar, wenn nur die betreffende Datei geöffnet ist. Aber sobaöd eine zweite Datei (z.B. Mappe2) geöffnet ist und man schließt Excel, erscheint eine Fehlermeldung mit dem Text "MS Office Excel hat ein Problem festgestellt und muss beendet werden". Hat jemand eine Idee, an was das liegen könnte?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AlleBlätterAusblenden
Workbooks(Dateiname).Save
Workbooks(Dateiname).Close
End Sub
' Anmerkung: Dateiname = ActiveWorkbook.Name
Viele Grüße
Mathias