Microsoft Excel

Herbers Excel/VBA-Archiv

Alle Arbeitsmappen bis auf die aktive schließen


Betrifft: Alle Arbeitsmappen bis auf die aktive schließen von: Sascha
Geschrieben am: 17.08.2016 11:18:54

Hallo allerseits,

ich habe eine wahrscheinlich sehr triviale Frage:

Wie kann ich per VBA alle Arbeitsmappen bis auf die aktive schließen?

Vielen Dank im Voraus für eure Hinweise und Hilfe.

Gruß

Sascha

  

Betrifft: AW: Alle Arbeitsmappen bis... von: Bernd
Geschrieben am: 17.08.2016 11:27:05

Hi,

schau mal hier:

http://www.office-loesung.de/ftopic297442_0_0_asc.php


mfg Bernd


  

Betrifft: Alle Arbeitsmappen bis auf die aktive schließen von: Nepumuk
Geschrieben am: 17.08.2016 11:29:17

Hallo,

teste mal:

Option Explicit

Public Sub Test()
    Dim objWorkbook As Workbook
    For Each objWorkbook In Application.Workbooks
        If Not objWorkbook Is ActiveWorkbook Then _
            Call objWorkbook.Close(SaveChanges:=False)
    Next
End Sub

Gruß
Nepumuk


  

Betrifft: Alle Arbeitsmappen bis auf die aktive schließen von: Sascha
Geschrieben am: 17.08.2016 13:11:53

Hallo Nepumuk,

vielen dank für die schnelle Antwort,

hat alles super funktioniert.

Danke nochmal.

Gruß

Sascha


Beiträge aus den Excel-Beispielen zum Thema "Alle Arbeitsmappen bis auf die aktive schließen"