Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Mappen auflisten"
Blätter in andere Arbeitsmappen kopieren Variablenübergabe in andere Arbeitsmappen
Bezüge auf Namen in anderen Mappen aufheben Zugriff auf geschlossene Arbeitsmappen
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Arbeitsmappen-History erstellen
Alle Arbeitsmappen außer einer schließen Auslesen der Arbeitsmappeneigenschaften
Geöffnete Arbeitsmappen mit Arbeitblättern listen Alle Arbeitsmappen schließen bzw. Excel beenden