Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige