Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mappen auflisten

Forumthread: Mappen auflisten

Mappen auflisten
20.03.2005 14:19:19
Tino
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.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mappen auflisten
20.03.2005 14:24:23
Boris
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
Anzeige
AW: Mappen auflisten
20.03.2005 15:38:25
K.Rola
Hi Liebes,
so wird ggf. die PERSONL.XLS auch geschlossen. Ob das so gewollt ist?
Gruß K.Rola
AW: Mappen auflisten
20.03.2005 20:32:04
Boris
Hallo meine Beste,
...wie Recht du doch (mal wieder) hast...
Grüße Boris
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige