Thema: Zweite ListBox nach Auswahl in erster füllen

Home

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

Zweite ListBox nach Auswahl in erster füllen

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