Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Arbeitsmappen außer einer schließen

Gruppe

Schließen

Problem

Wie kann ich alle Arbeitsmappen außer der aktiven schließen, ohne sie zu speichern und ohne eine diesbezügliche Abfrage?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Schliessen()
   Dim wkb As Workbook
   For Each wkb In Workbooks
      If wkb.Name <> ThisWorkbook.Name Then
         wkb.Close savechanges:=False
      End If
   Next wkb
End Sub