Microsoft Excel

Herbers Excel/VBA-Archiv

Alle Tabellennamen aus geschlossener Arbeitsmappe | Herbers Excel-Forum


Betrifft: Alle Tabellennamen aus geschlossener Arbeitsmappe von: Bastian
Geschrieben am: 15.01.2010 18:16:29

Hallo zusammen,

ich steh grad voll auf den Schlauch und hoffe dass ihr mir hier helfen könnt.

Aus einer geschlossenen Exceltabelle (diese ist variabel) will ich alle Tabellenblattnamen in der aktiven offenen Mappe in ein neues Tabellenblatt auflisten.

Den Dialog zum auswählen der geschlossen Datei mache ich wie folgt:

Dim dat As String
dat = Application.GetOpenFilename

Aber wie bekomme ich jetzt alle Tabellennamen in meine offene Mappe??

Vielen Dank schon mal im vorraus

  

Betrifft: Set wb=Getobject(dat) von: NoNet
Geschrieben am: 15.01.2010 18:25:00

Hallo Bastian,

hier ein Grundgerüst - ohne Fehlerabfrage :

Dim dat As String, wb as WorkBook, ws as Worksheet
dat = Application.GetOpenFilename

Set wb=Getobject(dat) 'Hierbei wird das Workbook "Unsichtbar" geöffnet !

For each ws in wb.Worksheets
msgbox ws.name
Next

Wb.close
Gruß, NoNet


  

Betrifft: AW: Set wb=Getobject(dat) von: Bastian
Geschrieben am: 15.01.2010 18:31:49

Hallo NoNet,

es scheint zu klappen. :-)

merci für die schnelle hilfe.


Beiträge aus den Excel-Beispielen zum Thema "Alle Tabellennamen aus geschlossener Arbeitsmappe"