Thema: Mehrfachauswahl melden und löschen

Home

Die Mehrfachauswahl der ListBox wird ausgelesen, gemeldet und gelöscht.

Prozedur: cmdAuslesen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Mehrfachauswahl melden und löschen
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife vom letzten bis zum ersten Element der ListBox bilden
- Wenn das aktuelle Element ausgewält ist...
- Aktuelles Element der Meldungs-String-Variablen hinzufügen
- Aktuelles Element löschen
- Ausgewählte Elemente melden

Code:


Private Sub cmdAuslesen_Click()
   Dim iCounter As Integer
   Dim sMsg As String
   For iCounter = lstValues.ListCount - 1 To 0 Step -1
      If lstValues.Selected(iCounter) Then
         sMsg = sMsg & lstValues.List(iCounter) & vbLf
         lstValues.RemoveItem iCounter
      End If
   Next iCounter
   MsgBox sMsg
End Sub