Selection in a multiselect listbox in Userform

[Emperor]

Hi all,

I've got 2 datefields (with a monthview control) in a Userform.

Output are a startdate and an enddate.
Now I wan't to check the dates in my Listbox6 to check if they are between the start/enddate. If so, select them, if not deselect them.

How could I do this?

Thanks in advance!

Mathijs.

 

[Rick Rothstein]

You didn't tell us enough about your setup to be able to give you exact code, so give code structured something like this a try...

Dim X As Long, StartDate As Date, EndDate As Date
....
....
With ListBox6
  For X = 0 To .ListCount - 1
    If .List(X) >= StartDate And .List(X) <= EndDate Then
      .Selected(X) = True
    Else
      .Selected(X) = False
    End If
  Next
End With

Your use of the word "between" is not entirely clear. The above code assumes you wanted to select any items in the ListBox exactly equal to either the StartDate or the EndDate. If you wanted to exclude them, just change the >= to > and the <= to < in the If..Then test.

 

[Emperor]

While you didnt have all of the information, you did write the code perfectly.
Thanks for your time and effort!

Mathijs.