In Abhängigkeit einer Auswahl in der ersten ListBox wird die zweite ListBox gefüllt.
Prozedur: lstA_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zweite ListBox nach Auswahl in erster füllen
Ablaufbeschreibung:
Variablendeklaration
Zeilenzähler initialisieren
Zweite ListBox zurücksetzen
Schleife bis zur ersten leeren Zelle
Zweiter ListBox den Wert aus der aktuellen Zeile und der Spalte gemäß Auswahl in der ersten ListBox hinzufügen
Zeilenzähler eins hochzählen
Code:
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