Mappen auflisten

Bild

Betrifft: Mappen auflisten
von: Tino
Geschrieben am: 20.03.2005 14:19:19
Hallo,
möchte alle offenen arbeitsmappen ansprechen,
auser die aktive.
for a = 2 to 5
on error resume next
Workbooks(a).Close 'für a sollten die Namen der Mappen stehen
'Namen sind immer anders!
next a
gehts diese direkt mit Namen anzusprechen?
Brauche dafür eine Namenauflistung,
die danach abgearbeitet werden.

Bild

Betrifft: AW: Mappen auflisten
von: Boris
Geschrieben am: 20.03.2005 14:24:23
Hi Tino,
um sie zu schließen, brauchst du die Namen nicht, sondern machst dir einfach die Workbooks-Auflistung mit Hilfe von For-Each zu Nutze:
Option Explicit

Sub schliessen()
Dim Wb As Workbook
For Each Wb In Application.Workbooks
    If Wb.Name <> ActiveWorkbook.Name Then Wb.Close False
Next Wb
End Sub

Grüße Boris
Bild

Betrifft: AW: Mappen auflisten
von: K.Rola
Geschrieben am: 20.03.2005 15:38:25
Hi Liebes,
so wird ggf. die PERSONL.XLS auch geschlossen. Ob das so gewollt ist?
Gruß K.Rola
Bild

Betrifft: AW: Mappen auflisten
von: Boris
Geschrieben am: 20.03.2005 20:32:04
Hallo meine Beste,
...wie Recht du doch (mal wieder) hast...
Grüße Boris
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mappen auflisten"