Gruppe
Dialog
Bereich
ListBox
Thema
Mehrfachauswahl in ListBox auslesen
Problem
Wie kann ich bei einer Mehrfachauswahl in einer ListBox die nicht ausgewählten Elemente auslesen und in einer MsgBox anzeigen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain
Sub CallForm()
frmHNoSelect.Show
End Sub
ClassModule: frmNoSelect
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim iRow As Integer
Dim sDays As String
For iRow = 1 To 7
If lstWeekdays.Selected(iRow - 1) = False Then
sDays = sDays & lstWeekdays.List(iRow - 1) & vbLf
End If
Next iRow
MsgBox "Nicht ausgewählt wurden: " & vbLf & sDays
End Sub
Private Sub UserForm_Initialize()
Dim iRow As Integer
For iRow = 1 To 7
lstWeekdays.AddItem Format(DateSerial(1, 1, iRow), "dddd")
Next iRow
End Sub