Thema: Nicht ausgewählte Elemente melden

Home

Die nichtausgewählten Elemente der ListBox werden genannt.

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nicht ausgewählte Elemente melden
Ablaufbeschreibung:
- Variablendeklaration
- Eine Schleife über alle ListBox-Einträge (Wochentage) bilden
- Wenn aktuelle ListBox-Eintrag nicht ausgwählt ist...
- Wochentag der String-Variablen hinzufügen
- Nicht markierte ListBox-Einträge melden

Code:


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