Decimal op

[Kirana2014]

Beste,

ik hoop dat iemand een oplossing heeft.
Ik heb deze code in VBA geschreven om een ​​bedrag met decimale tonen in listbox

voorbeeld :
van 1500 naar 1.500,00 (zie excel file)
van 10000,00 naar 10.000,00

ik waardeer alle hulp.

 

[VenA]

Een beetje stoeien met format. Maar had je zelf waarschijnlijk zelf ook al bedacht tijdens het schrijven van de code.

With ListBox1
    .ColumnWidths = "65;78;65;70"         'Overbodig kan je net zo goed eenmalig in het ontwerp doen
    .ColumnCount = 4                      'Overbodig kan je net zo goed eenmalig in het ontwerp doen
    .List = Sheets("Data").Range("A2:D" & [a65536].End(3).Row).Value 'kan je beter de databodyrange van een tabel voor gebruiken.
    For j = 0 To .ListCount - 1
      .List(j, 3) = [COLOR="#000080"]Format(.List(j, 3), "€ #,##0.00")[/COLOR]
    Next j
    TextBox9.Value = .ListCount
  End With

 

[edmoor]

Daarbij is die 65536 het maximum aantal regels voor Excel 2003.
Voor Excel > 2003 is dat 1048576

 

[Kirana2014]

Bedankt voor je hulp Vena