Arbeitsblätter in Combobox laden
27.11.2005 23:19:48
andreas
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
Anzeige