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
57.5k Fragen
245k Antworten
6.6k Nutzer