Application.Quit
Application.DisplayAlerts = False
Sub Schliessen() Dim wkb As Workbook For Each wkb In Workbooks If wkb.Name <> ThisWorkbook.Name Then wkb.Close (False) End If Next wkb End Sub
Sub raus() Application.DisplayAlerts = False Application.Quit End Sub
56.6k Fragen
242k Antworten
6.4k Nutzer