VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen

Gruppe

Dialog

Bereich

ComboBox

Thema

In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen

Problem

Wie kann ich in einer UserForm eine ListBox in Abhängigkeit einer ComboBox-Auswahl füllen lassen?

Lösung

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




StandardModule: basMain

Sub CallForm()
   frmListenFuellen.Show
End Sub

ClassModule: frmListenFuellen

Private Sub cboZeilen_Change()
   lstSpalten.List = _
      WorksheetFunction.Transpose( _
         Range(Cells(cboZeilen.ListIndex + 1, 2), _
         Cells(cboZeilen.ListIndex + 1, 6)).Value)
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboZeilen.List = Range("A1") _
      .CurrentRegion.Columns(1).Value
   cboZeilen.ListIndex = 0
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox