Listbox kolom in valuta

[HWV]

Beste,

Ik heb een userform, met een listbox waar ik de getal wil omzetten naar valuta met Euro teken.
Na zoekwerk op het internet ben ik nog niks tegen gekomen dat het voor mij duidelijk maakt hoe ik dit moet aanpakken.
Kolom Q daar staat de waarde die overgenomen wordt in de listbox kolom 4 en wat moet weer gegeven worden in de listbox incl euro teken

Bekijk bijlage Helpmij_listbox_waarde.xlsm

Groet Henk

 

[Conseclusie]

Gebruik Format:

Format(rngFind1.Columns(13), "€ 0.00")

 

[HWV]

bedankt

Bedankt voor de input, helaas krijg ik het niet werkend.
Dit is meer ontwetenheid van mij, want waar in mijn script plaats ik dit dan.
Zodra ik het plaats, dan wordt het rood.

Dus heb ik er dit van gemaakt, maar waar moet ik dit plaatsen want ook nu geef hij object vereist

  ListBox1.Value = Format(rngFind1.Columns(13), "€ 0.00")

Of denk ik nu de verkeerde kant op

Henk

 

[Conseclusie]

In Sub Locate:
Vervang:

ListBox1.List(ListBox1.ListCount - 1, 3) = rngFind.Columns(17) 'VERPAKT PER

door

ListBox1.List(ListBox1.ListCount - 1, 3) = Format(rngFind.Columns(17), "€0.00") 'VERPAKT PER

In Sub Locate1:
Vervang:

ListBox1.List(ListBox1.ListCount - 1, 3) = rngFind1.Columns(13) 'VERPAKT PER

door

ListBox1.List(ListBox1.ListCount - 1, 3) = Format(rngFind1.Columns(13), "€ 0.00") 'VERPAKT PER

 

[HWV]

Oeps..

Ik zie het nu idd, was al bezig en wilde niet lukken.
Erg bedankt voor je uitleg.

Henk