Thema: Mehrfachauswahl in Tabelle

Home

Eine Mehrfachauswahl aus einer ListBox wird in Spalte A eingetragen.

Prozedur: cmdEintragen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Mehrfachauswahl in Tabelle
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über alle ListBox-Einträge bilden
- Wenn der aktuelle ListBox-Eintrag ausgewählt ist...
- Zeilenzahler um ein erhöhen
- ListBox-Eintrag in Tabelle eintragen

Code:


Private Sub cmdEintragen_Click()
   Dim iRow As Integer, iCounter As Integer
   For iRow = 0 To lstMonths.ListCount - 1
      If lstMonths.Selected(iRow) Then
         iCounter = iCounter + 1
         Cells(iCounter, 1).Value = lstMonths.List(iRow)
      End If
   Next iRow
   Unload Me
End Sub