Gruppe
Dialog
Problem
Wie kann ich alle offenen Arbeitsmappen in einem DropDown-Feld eines Dialogs listen und über eine MessageBox den Wert aus Zelle A1 aus Arbeitsblatt "Tabelle1" der ausgewählten Arbeitsmappe anzeigen lassen?
StandardModule: basMain
Sub CallForm()
frmWkb.Show
End Sub
ClassModule: frmWkb
Private Sub cboWkb_Change()
Workbooks(cboWkb.Value).Activate
Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wkb As Workbook
For Each wkb In Workbooks
cboWkb.AddItem wkb.Name
Next wkb
End Sub