Hi all,

I have created a userform with a list of dates to choose from in a List Box;
the user can choose only one date, but in case they don't, there is always a
default date selected, being the last item on the list. How can I achieve
this?

Thanks much in advance!

Haas,

Try something like the following:

Dim Result As String
Dim ResultDate As Date
With Me.ListBox1
If .ListIndex < 0 Then ' none selected
Result = .List(.ListCount - 1)
Else
Result = .List(.ListIndex)
End If
End With
ResultDate = DateValue(Result)
MsgBox ResultDate


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Haas" wrote in message
...
Hi all,

I have created a userform with a list of dates to choose from in a List
Box;
the user can choose only one date, but in case they don't, there is always
a
default date selected, being the last item on the list. How can I achieve
this?

Thanks much in advance!

Hi

Set the style to "list" and make sure something (=last item) is selected before display.
Something like

Private Sub UserForm_Initialize()
' This is it part 1 :
ComboBox1.Style = fmStyleDropDownList
' List fill. Whatever.
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
' This is it pt 2 :
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Haas" wrote in message
...
Hi all,

I have created a userform with a list of dates to choose from in a List Box;
the user can choose only one date, but in case they don't, there is always a
default date selected, being the last item on the list. How can I achieve
this?

Thanks much in advance!

in your userform initialization code:

ListBox1.ListIndex = ListBox1.ListCount - 1

In article ,
"Haas" wrote:

Hi all,

I have created a userform with a list of dates to choose from in a List Box;
the user can choose only one date, but in case they don't, there is always a
default date selected, being the last item on the list. How can I achieve
this?

Thanks much in advance!

Doh ! Listbox of course. My mistake, sorry, I was thinking combobox'ed. Once
something is preselected in a listbox then something will always be, as in
the other replies.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Harald Staff" skrev i melding
...
Hi

Set the style to "list" and make sure something (=last item) is selected
before display.
Something like

Private Sub UserForm_Initialize()
' This is it part 1 :
ComboBox1.Style = fmStyleDropDownList
' List fill. Whatever.
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
' This is it pt 2 :
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Haas" wrote in message
...
Hi all,

I have created a userform with a list of dates to choose from in a List
Box;
the user can choose only one date, but in case they don't, there is
always a
default date selected, being the last item on the list. How can I
achieve
this?

Thanks much in advance!