Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrfachauswahl in ListBox auslesen

Gruppe

ListBox

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