HERBERS Excel-Forum - die Dialoge

Thema: Bei dritter ListBox-Auswahl Schaltfläche aktivieren

Home
In der UserForm soll die OK-Schaltfläche erst aktiviert werden, wenn in der ListBox das 3. Element ausgewählt wird. Bei dritter ListBox-Auswahl Schaltfläche aktivieren
  • Prozedur: lstValues_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Bei dritter ListBox-Auswahl Schaltfläche aktivieren
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über alle ListBox-Elemente
    • Wenn das aktuelle Element markiert ist...
    • Zähler um eins hochzählen
    • Wenn der Zählerwert 3 ist...
    • OK-Schaltflche aktivieren
    • Sonst...
    • OK-Schaltfläche deaktivieren
  • Code:

    
    Private Sub lstValues_Change()
       Dim iCounter As Integer, iCount As Integer
       For iCounter = 0 To lstValues.ListCount - 1
          If lstValues.Selected(iCounter) Then
             iCount = iCount + 1
          End If
       Next iCounter
       If iCount = 3 Then
          cmdOK.Enabled = True
       Else
          cmdOK.Enabled = False
       End If
    End Sub