Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Sheets aus anderer, geöffneter Datei auslesen
25.10.2004 12:46:34
eres
Hallo Excel-Freunde,
mit einer Schleife möchte ich die Blätter einer Datei auslesen, die zwar geöffnet ist, aber nicht aktiv. Da die Datei mit Hilfe einer Combo-Box ausgewählt wird, habe ich (leider erfolglos) folgendes probiert:
Dim WSh As Worksheet
For Each WSh In ComboBox1.List(ComboBox1.ListIndex).Worksheets
ComboBox2.AddItem WSh.Name
Next

Kann man eine derartige Schleife bauen, ohne die Datei selbst zu aktivieren ?
(So geht's natürlich, aber ich möchte das Aktiveren vermeiden:
Dim WSh As Worksheet
ComboBox1.List(ComboBox1.ListIndex).Activate
For Each WSh In Worksheets
...ComboBox2.AddItem WSh.Name
Next)
Vielen Dank für Eure Hilfe im voraus.
Gruss
erwin

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

Betreff
Datum
Anwender
Anzeige
AW: Sheets aus anderer, geöffneter Datei auslesen
Ramses
Hallo
mal ungetestet einen Vorschlag
Dim WSh As Worksheet
For Each WSh In Workbooks(Me.ComboBox1).Worksheets
ComboBox2.AddItem WSh.Name
Next
Gruss Rainer
AW: Sheets aus anderer, geöffneter Datei auslesen
fritzm
Hallo Erwin,
ich vermute mal, du hast in der ComboBox1 die Namen der Arbeitsmappen stehen. Wen dem so ist, dann kannst du die entsprechende Arbeitsmappe bequem über den NAmen ansprechen:
Dim WSh As Worksheet
For Each WSh In Workbooks(ComboBox1.List(ComboBox1.ListIndex)).Worksheets
ComboBox2.AddItem WSh.Name
Next
Wenn der Name in der ComboBox1 ohne Extension ".xls" steht, dann so:
Dim WSh As Worksheet
For Each WSh In Workbooks(ComboBox1.List(ComboBox1.ListIndex) & ".xls").Worksheets
ComboBox2.AddItem WSh.Name
Next
Anzeige
AW: Sheets aus anderer, geöffneter Datei auslesen
25.10.2004 13:28:28
eres
Funktioniert einwandfrei.
Herzlich Dank an Fritz (und Rainer) für die schnelle Hilfe.
Gruss aus Köln
erwin

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige