Gruppe
Dialog
Problem
Wie kann ich in einer UserForm eine ListBox in Abhängigkeit einer ComboBox-Auswahl füllen lassen?
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