VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zweite ListBox in Abhängigkeit der ersten füllen

Gruppe

Dialog

Bereich

ListBox

Thema

Zweite ListBox in Abhängigkeit der ersten füllen

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

    


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