Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

inaktive Mappen schliessen

Forumthread: inaktive Mappen schliessen

inaktive Mappen schliessen
02.11.2016 12:48:12
Lisa
Hallo zusammen, ich benötige bitte einmal Hilfe.
Mit Workbooks("Test.xls").Activate aktiviere ich meine Mappe in der ich arbeite.
Nun möchte ich gern alle anderen inaktiven Mappen schließen.
Gibt es hierfür auch einen Befehl?
Liebe Grüße Lisa
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: inaktive Mappen schliessen
02.11.2016 13:28:52
UweD
Hallo
in ein Modul
Sub alleZu()
    Dim WB
    For Each WB In Workbooks
        Select Case UCase(WB.Name)
        Case UCase("Personal.xlsb"), UCase(ActiveWorkbook.Name)
            'tue nichts 
        Case Else
            WB.Close
        End Select
    Next
End Sub

LG UweD
Anzeige
AW: inaktive Mappen schliessen
02.11.2016 14:52:45
Lisa
Hallo und vielen Dank.
Liebe Grüße
Danke für die Rückmeldung owT
02.11.2016 15:02:30
UweD
AW: inaktive Mappen schliessen
02.11.2016 14:32:30
Martin
Hallo Lisa,
die einfachste und schnellste Variante:
Sub CloseInActiveWorkbooks()
Dim WB As Workbook
For Each WB In Workbooks
If Not WB Is ActiveWorkbook Then WB.Close
Next
End Sub
Viele Grüße
Martin
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige