Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blätter in ComboBox-Feld einlesen und auswählen

Gruppe

ComboBox

Problem

Wie kann ich Arbeitsblätter einer bestimmten Serie in ein DropDownFeld eines Dialogblattes einlesen und das ausgewählte selektieren?

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

StandardModule: basMain

Sub CallForm()
   frmWks.Show
End Sub

ClassModule: frmWks

Private Sub cboWks_Change()
   Worksheets(cboWks.Value).Select
   Unload Me
End Sub

Private Sub cmdContinue_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim wks As Worksheet
   For Each wks In Worksheets
      cboWks.AddItem wks.Name
   Next wks
End Sub