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
58.4k Fragen
249k Antworten
7k Nutzer