Valuta notatie

[Speedsurfer]

Waar in mijn VBA Formulier code bestand moet ik de code plaatsen om direct de valuta zichtbaar te krijgen bij de start van de "Verkooplijst".?

De code die ik gebruik is:
Dim mycontrol As Object
For Each mycontrol In Klantenlijst.Controls
If TypeName(mycontrol) = "TextBox" Then
If IsNumeric(mycontrol.Value) Then
mycontrol.Value = Format(mycontrol.Value, "€ #,##0.00")
End If
End If
Next mycontrol

Staat in Formulier Verkooplijst

Als ik hem nu opstart staat er geen valuta, maar als ik in de zoekbalk iets invul verschijnt hij wel.
Eigenlijk te laat.
Wie weet een oplossing
Grtz. Speedsurfer

 

[VenA]

Plaats de code even tussen codetags dat maakt het wat beter leesbaar.

 

[Speedsurfer]

[Dim mycontrol As Object]
[For Each mycontrol In Klantenlijst.Controls]
[If TypeName(mycontrol) = "TextBox" Then]
[If IsNumeric(mycontrol.Value) Then]
[mycontrol.Value = Format(mycontrol.Value, "€ #,##0.00")]
[End If]
[End If]
[Next mycontrol]

 

[cow18]

waarom moeilijk doen ?
Het gaat enkel over textbox 15 en 17, waarom niet rechtstreeks neerpennen op het ogenblik dat je je listbox aanklikt ?

 

[VenA]

Tussen code tags graag. https://www.helpmij.nl/forum/announcement.php?f=5

Plaats ook een voorbeeldbestand die de kern van het probleem weergeeft ipv een compleet project waarin eerst gezocht moet worden naar wat je nu eigenlijk bedoelt. Of benoem de objecten duidelijk.

 

[sylvester-ponte]

zie een na laatste regel die moet je nog toevoegen.

Private Sub UserForm_Initialize()
Dim X, sds, say1 As Long
say1 = WorksheetFunction.CountA(Worksheets("Verkooplijst").Range("D:H"))
sds = Sheets("Verkooplijst").[A600].End(xlUp).Row
ListBox4.List = Sheets("Verkooplijst").Range("D2:H" & sds).Value
ListBox4.ListIndex = 0
sv = Sheets("Verkooplijst").Cells(1).CurrentRegion.Value
ListBox5.List = sv
TextBox27_Change
ListBox4.List = ListBox5.List
ListBox4.ListIndex = 0
[COLOR="#FF0000"]TextBox27_Change[/COLOR]
End Sub

 

[Speedsurfer]

Wellicht is mijn vraagstelling voor sommige onduidelijk, excuus hiervoor.
Je wordt niet zomaar Giga Honourable Senior Member

sylvester-ponte dank voor het antwoord.
Probleem opgelost.