Hi,

I have created a Listbox in a Userform with a single
column of information containing the months in a year
(1,2,...,12).
Is it possible to set the actual month as a default value
in the Listbox?

Thanks for all answers!

Something like:

Private Sub UserForm_Initialize()
Dim L As Long
For L = 1 To 12
ListBox1.AddItem _
StrConv(Format(DateSerial(2000, L, 1), _
"mmmm"), vbProperCase)
Next
ListBox1.ListIndex = Month(Date) - 1
End Sub

Note that a listbox's 1st entry is number 0, so that's where the -1 part
comes in. You get used to it pretty fast.
--
HTH. Best wishes Harald
Followup to newsgroup only please

"Caspar" skrev i melding
...
Hi,

I have created a Listbox in a Userform with a single
column of information containing the months in a year
(1,2,...,12).
Is it possible to set the actual month as a default value
in the Listbox?

Thanks for all answers!

http://www.google.com/groups?hl=en&l...096b12c&rnum=4

In the userform initialize event

ListBox1.Value = Month(Date)

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------
Hi,

I have created a Listbox in a Userform with a single
column of information containing the months in a year
(1,2,...,12).
Is it possible to set the actual month as a default value
in the Listbox?

Thanks for all answers!