newbie: numberformat

[Adri]

Hallo,
I have a list, filled by a range. The numbers that I get are for example
100. I want this to be 100.00 (two decimal).
I searched and think it has to be something with numberformat, but how to
fill in the code?

Private Sub Userform_Initialize()
ListBox1.List = Range("Werk").Value
End Sub

 

[kkknie]

Looks to me like you need to format it when you add it to the list.
could not find a numberformat for a list box.

Try this:

ListBox1.AddItem Format(100, "#.00")

 

[Bob Phillips]

Hi Adri,

Don't like it, but here is one way

Private Sub Userform_Initialize()
Dim i As Long
ListBox1.List = Range("Werk").Value
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i) = Format(ListBox1.List(i), "#,##0.00")
Next i
End Sub

--

HTH

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

 

[Tom Ogilvy]

Private Sub Userform_Initialize()
Range("Werk").NumberFormat = "#.00"
for each cell in Range("Werk")
ListBox1.AddItem cell.Text
Next

End Sub

 

[Adri]

Thank you all, just what I needed.
Regards, Adri

Tom Ogilvy wrote:
| Private Sub Userform_Initialize()
| Range("Werk").NumberFormat = "#.00"
| for each cell in Range("Werk")
| ListBox1.AddItem cell.Text
| Next
|
| End Sub
|
|
| || Hallo,
|| I have a list, filled by a range. The numbers that I get are for
|| example 100. I want this to be 100.00 (two decimal).
|| I searched and think it has to be something with numberformat, but
|| how to fill in the code?
||
|| Private Sub Userform_Initialize()
|| ListBox1.List = Range("Werk").Value
|| End Sub
||
|| --
|| Kind regards,
|| Adri