vb duizend punt

[luck7]

hallo

hoe ka ik een label zo instellen dat ie een punt gebruikt.
nu staat er bv. 12435 maar er moet 12.345 staan (eventueel 12.345,00)

bedankt

luck

 

[Mark xl]

Beste Luck,

Hieronder een functie met een voorbeeld die je kan gebruiken om getalnotatie in duizendtallen in te stellen, met optioneel een aantal decimalen.

Kan je hier wat mee?

Mark.

Sub TestGetalnotatie()

Dim Waarde1 As String
Dim Waarde2 As String
Dim Waarde3 As String

    Waarde1 = 1000
    Waarde2 = 100000
    Waarde3 = 123.987
    
    MsgBox GetalNotatie(Waarde1)
    MsgBox GetalNotatie(Waarde2)
    MsgBox GetalNotatie(Waarde3, 3)

End Sub

Function GetalNotatie(ByVal sInput As String, _
                      Optional ByVal Decimalen As Long) As String
Dim sDec As String

    If Decimalen > 0 Then
    
        sDec = "." & WorksheetFunction.Rept("0", Decimalen)
    
    End If
    
    GetalNotatie = Format(sInput, "#,##0" & sDec)
       
End Function

 

[luck7]

Aha, dat werkt idd ook.
Ik had ondertussen iets gevonden maar ben nu niet in de buurt van m'n computer dus die code zal ik later even posten.
Maar toch bedankt want deze code werkt in mijn geval denk ik beter

Luck