HERBERS Excel-Forum - die Dialoge

Thema: ListBoxes als Collection-Objekt

Home
Die Gruppe von ListBoxes wir über ein Collecion-Objekt angesprochen und mit Werten gefüllt. ListBoxes als Gruppe
  • Prozedur:
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: ListBoxes als Collection-Objekt
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Die ListBoxes dem Collection-Objekt übergeben
    • Schleife über die Collection bilden
    • Schleife über einzufügende Listenelemente bilden
    • Listenelemente einlesen
    • Jeweils erstes Element der ListBox auswählen
  • Code:

    
    Private Sub UserForm_Initialize()
       Dim col As New Collection
       Dim iList As Integer, iItem As Integer
       col.Add lstEins
       col.Add lstZwei
       col.Add lstDrei
       col.Add lstVier
       For iList = 1 To 4
          For iItem = 1 To 10
             col(iList).AddItem "Liste " & _
                iList & " - Zeile " & iItem
          Next iItem
          col(iList).ListIndex = 0
       Next iList
    End Sub