VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Mit folgender Funktion können schnell alle Elemente bestimmt werden, die in einer ListBox mit Multiselect=True gerade markiert sind. Ist gar kein Element selektiert, so gibt die Funktion Empty zurück.

Function ListBoxSel(lst As ListBox) As Variant
  Dim i As Long
  Dim n As Long
  Dim v As Variant
  
  With lst
    ReDim v(1 To .ListCount)
    For i = 0 To .ListCount - 1
      If .Selected(i) Then
        n = n + 1
        v(n) = i
      End If
    Next i
  End With

  If n Then
    ReDim Preserve v(1 To n)
    ListBoxSel = v
  End If
End Function