Kontakt
DSVGO
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
© Jost Schwider, 19.08.2000-19.08.2000 - http://vb-tec.de/getsel.htm