Thema: Ohne Doppel eintragen

Home

Zellwerte werden ohne Doppel in die ComboBox eingelesen. Nach ComboBox-Auswahl werden die den ComboBox-Einträgen zugeordneten Zahlen summiert und in einem Label ausgegeben.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Ohne Doppel eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Zeilenzähler initialisieren
- Fehlerroutine starten
- Schleife bis zur ersten leeren Zelle
- Einem Collection-Objekt ein Element hinzufügen, wenn es nicht schon vorhanden ist
- Schleife über alle Collection-Elemente
- Collection-Elemente an ListBox übergeben
- Fehlerroutine beenden
- 1. ComboBox-Element auswählen

Code:


Private Sub UserForm_Initialize()
   Dim col As New Collection
   Dim iRow As Integer
   iRow = 1
   On Error Resume Next
   Do Until IsEmpty(Cells(iRow, 1))
      col.Add Cells(iRow, 1), Cells(iRow, 1)
      iRow = iRow + 1
   Loop
   For iRow = 1 To col.Count
      cboNamen.AddItem col(iRow)
   Next iRow
   On Error GoTo 0
   cboNamen.ListIndex = 0
End Sub