Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrfachauswahl aus ListBox auslesen

Gruppe

ListBox

Problem

Wie kann ich aus einer UserForm-Listbox die ausgewählten Elemente einer Mehrfachauswahl bestimmen, die Selektierung aufheben und die Elemente löschen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmAuslesen

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

Private Sub cmdContinue_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 12
      lstValues.AddItem Format(DateSerial(1, iCounter, 1), "mmmm")
   Next iCounter
End Sub

StandardModule: basMain

Sub CallForm()
   frmAuslesen.Show
End Sub