Gruppe
Dialog
Problem
Wie kann ich bei einer Mehrfachauswahl in einer ListBox die nicht ausgewählten Elemente auslesen und in einer MsgBox anzeigen lassen?
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