Euroteken in combobox

[JosEindhoven]

Goede morgen

Ik heb een bestand om het onderhoud van mijn auto bij te houden. Op het formulier staat en cbox met daarop gegevens uit de sheet Tanken. De Cbox laat echter geen euro teken zien bij de verschillende waardes. Hoe kan ik dit oplossen

 

[edmoor]

Welke combobox?
Op welk moment?
Wat moet er worden gedaan om je probleem te kunnen zien?

 

[JosEindhoven]

Het is Cbox1 op het formulier onder de afbeelding die gegevens toont bij het openen van het formulier maar geen euro teken geeft

 

[edmoor]

Doe het eens zo:

Private Sub UserForm_Activate()
    Dim v(6) As String
    For i = 0 To 6
        v(i) = Sheets("Tanken").Range("P" & i + 1).Text
    Next i
    CBox1.List = v
End Sub

 

[JosEindhoven]

Klopt bijna in mijn bestand. Geeft alleen voor de onderhoudskosten en brandstofkosten geen euro teken.

 

[edmoor]

Uiteraard niet.
Die staan ook niet in je document.

 

[JosEindhoven]

Ik ga er mee aan de slag . In ieder geval bedankt zover. Helemaal top

 

[HSV]

Beter?

Private Sub UserForm_Activate()
    Dim v(6)
    For i = 0 To 6
        v(i) = format(Sheets("Tanken").cells(i + 1, 16), "currency")
    Next i
    CBox1.List = v
End Sub

Waarom niet bij de Initialize() in?

 

[snb]

Of

Private Sub UserForm_Initialize()
  CBox1.List = [index(text(P1:P6,"€ 0.00"),)]
End Sub