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
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
Sub CloseInActiveWorkbooks()
Dim WB As Workbook
For Each WB In Workbooks
If Not WB Is ActiveWorkbook Then WB.Close
Next
End Sub
Viele GrüßeDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen