Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsblätter in Combobox laden

Arbeitsblätter in Combobox laden
27.11.2005 23:19:48
andreas
Hallo,
ich habe in einer Userform eine combobox in der ich die derzeit geöffneten Exceldokumente auswählen kann. Und eine combobox in der die Arbeitsblätter zum Auswählen sein sollen, von der Excel-Datei die in der anderen combobox ausgewählt wurde. Das gelingt mir im Change-Ereignis der Combobox für die Dateien aber nicht.
Wer kann mir helfen?
Danke, Andreas

Private Sub UserForm_Initialize()
Dim wkb As Workbook
For Each wkb In Workbooks
cboWkb.AddItem wkb.Name
Next wkb
End Sub


Private Sub cboWkb_Change()
Dim wks As Worksheet
For Each wks In cboWkb.List(cboWkb.ListIndex).Worksheets
cboWks.AddItem wks.Name
Next wks
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter in Combobox laden
28.11.2005 00:12:38
Erich
Hallo Andreas,
so sollte es gehen:

Private Sub cboWkb_Change()
Dim wks As Worksheet
cboWks.Clear
If cboWkb.List(cboWkb.ListIndex) < 0 Then Exit Sub
For Each wks In Workbooks(cboWkb.List(cboWkb.ListIndex)).Worksheets
cboWks.AddItem wks.Name
Next wks
End Sub

In cboWkb.List stehen Strings mit den Namen von Workbooks, keine Workbook-Objekte.
cboWks.Clear ist wohl sinnvoll, damit die Blätter der vorher ausgewählten Mappen nicht in der Liste stehen bleiben.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Arbeitsblätter in Combobox laden
28.11.2005 10:49:49
andreas
Hallo Erich,
danke für deine Hilfe, funktioniert einwandfrei!
lg, Andreas
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige