Thema: Mehrfachauswahl in ListBox auslesen

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox