How to tell if nothing is selected in multiselect enabled listbox

[bradyboyy88]

I have a listbox that may or may not be populated with items. If it is populated then the users can select multiple items in the listbox. How do I go about checking if nothing has been selected in the listbox when its empty or has items in there? Can this be done without looping through every item in the list to check if it has been selected?

Thanks

 

[Rick Rothstein]

Where is the ListBox located at... on a UserForm or on a worksheet? If on a worksheet, what kind of ListBox is it... a Forms control or an ActiveX control?

 

[bradyboyy88]

Where is the ListBox located at... on a UserForm or on a worksheet? If on a worksheet, what kind of ListBox is it... a Forms control or an ActiveX control?

It is located on a userform named userform1 inside a frame called frame1. SOrry I should have been more specific!

 

[RoryA]

Can this be done without looping through every item in the list to check if it has been selected?

No, I don't believe so.

 

[bradyboyy88]

No, I don't believe so.

If I were to just loop through, do you have any code on hand to do this?

 

[Rick Rothstein]

Assuming your listbox is named ListBox1, put this in whatever procedure you want to use to check the listbox from...

Dim X As Long, FoundOne As Boolean
For X = 0 To ListBox1.ListCount
  If ListBox1.Selected(X) Then
    FoundOne = True
    Exit For
  End If
Next
If FoundOne Then
  MsgBox "At least one item is selected"
Else
  MsgBox "No items are selected"
End If

 

[bradyboyy88]

Its strange Visual basic has a method to check without looping through and vba doesnt but I guess this will do! Thanks for the code!

 

[bradyboyy88]

Assuming your listbox is named ListBox1, put this in whatever procedure you want to use to check the listbox from...

Dim X As Long, FoundOne As Boolean
For X = 0 To ListBox1.ListCount
  If ListBox1.Selected(X) Then
    FoundOne = True
    Exit For
  End If
Next
If FoundOne Then
  MsgBox "At least one item is selected"
Else
  MsgBox "No items are selected"
End If

One question though. Why do we not have to subtract 1 for the listbox1.listcount? Say there was 2 items in the listbox then technically it should be such that listcount gives 3 so .selected(3) shouldnt work since that starts 0 to 2 I thought. Its not drawing an error and I cannot figure out why.

 

[Rick Rothstein]

One question though. Why do we not have to subtract 1 for the listbox1.listcount? Say there was 2 items in the listbox then technically it should be such that listcount gives 3 so .selected(3) shouldnt work since that starts 0 to 2 I thought. Its not drawing an error and I cannot figure out why.

Thank you for noting that... yes, it should be ListBox1 - 1 and for the reason you stated.