Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Offene Arbeitsmappen in Dialog listen

Gruppe

ComboBox

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?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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