ich habe da mal wieder eine Frage. Ich möchte über einen Button die gesamte Exceldatei schließen und speichern.
Dies gleiche soll auch über das kleine "X" rechts oben funktionieren. Kann mir da eine helfen?
Danke
Jörg
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
Diesen hier für den Button in ein neues Modul
Sub t()
ThisWorkbook.Close True
End Sub
Grüße, Bernd
If Workbooks.Count=1 Then
Application.Quit
End If
Grüße, Bernd