asked on

VBA excel: how to check if a list box (multiselect) is not selected

Hi x-perts,

how can I check if none of the listbox items for a multiselect box are selected?

For a single select box I can use

listBox.ListIndex <> -1

But for a multiSelect box it has a value 0, if nothing is selected as well as the first item is selected

Thanks

ioane

Try this:

Private Function IsRowSelected() as Boolean
Dim i as Integer

IsRowSelected = False
For i = 0 to listbox.ListCount-1
If listbox.Selected(i) = True Then IsRowSelected = True
Exit For
Next i
End Function

ioane

Sorry, should be this:

Private Function IsRowSelected() as Boolean
Dim i as Integer
 
IsRowSelected = False
For i = 0 to listbox.ListCount-1
  If listbox.Selected(i) = True Then 
    IsRowSelected = True
    Exit For
  End If
Next i
End Function

Open in new window

andy7789

ASKER

Well, it could work, but I cannot afford looping here just to see that nothing is selected, because that list may be huge.

I need to find something to check it instantly. probably, i should check what the listbox.value is if nothing is selected....

ioane

Of course!!

Try:
If listbox.Selected(listbox.ListIndex) = True Then

ASKER CERTIFIED SOLUTION

andy7789

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

andy7789

ASKER

Sorry, your code returns false, if nothing is selected OR the first item is selected.

ioane

Did you try it like this?

If listbox.Selected(listbox.ListIndex) = False Then

andy7789

ASKER

yes, i did - see my previous comment. Your code cannot distinguish between "nothing selected" and "first item selected"