Count number of selected item in Listbox

[Todd Huttenstine]

Hey guys what is the code to count the number of selected
items in a listbox. I know how to count the total number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine

 

[Todd Huttenstine]

This is a followup to my original post:

I came up with the following code...

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
ListValue = .List(i)
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

Can anyone tell me if there is a more effecient way of
doing this?


Thanks
Todd Huttenstine

 

[Tom Ogilvy]

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

No reason to assign the list value to listvalue

Why are you worried about this? There is no built in count you can access.
You must have some pretty tight code if you are worried about this
efficiency.

 

[Bob Phillips]

Dim i As Long
Dim c As Long

With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
c = c + 1
End If
Next i
End With

MsgBox c & " items selected"


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Todd Htutenstine]

Thank you

Yes I need to count the number of selected items in the
listbox as a validation. I have items(week numbers for
each month) in the listbox tied to pivotfields(weeks worth
of data) in pivot tables. I have a pivot table underneath
the pivot table I am manipulating with the listbox. I
want to ensure that a user does not select more than 6
pivotfields (in the listbox) so it does not build the
pivot table on top of the second pivot table below. A
user will never need to select more than 6 months of data
because there are no more than 6 full/incomplete weeks in
any givin month.



Todd