Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zweite ListBox in Abhängigkeit der ersten füllen

Gruppe

ListBox

Problem

In Abhängigkeit einer Auswahl in der ersten ListBox soll die zweite ListBox gefüllt werden.

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

StandardModule: basMain

Sub CallForm()
   frmListen.Show
End Sub

ClassModule: frmListen

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub lstA_Click()
   Dim iRow As Integer
   iRow = 2
   lstB.Clear
   Do Until IsEmpty(Cells(iRow, 1))
      lstB.AddItem Cells(iRow, lstA.ListIndex + 1)
      iRow = iRow + 1
   Loop
End Sub

Private Sub UserForm_Initialize()
   lstA.Column = Range("A1").CurrentRegion.Rows(1).Value
End Sub