Label verwijzing naar cel geeft teveel decimalen

[arnose09]

Het formaat in de te verwijzen cel geeft 2 decimalen aan.

Maar in mijn userform die automatisch wordt geopend bij het openen van het bestand geeft het label teveel decimalen weer.

De VBA code:

Private Sub NUMMER_Change()
    Application.ScreenUpdating = False
With Sheets("Data")
   With .Columns(1).Find(NUMMER.Value, , xlValues, xlWhole)
    
        purprice.Caption = .Offset(, 5).Value
        purprice2.Caption = .Offset(, 6).Value
    End With
End With

    Application.ScreenUpdating = True
End Sub

Hoe kan ik ervoor zorgen dat er maar 2 decimalen in de labels worden getoond?

 

[Niels28]

purprice.Caption = WorksheetFunction.Round(.Offset(, 5).Value, 2)

Niels

 

[arnose09]

Dank voor de snelle reactie.

Het lijkt gedeeltelijk te werken. Zie bijgaand voorbeeld:
Bekijk bijlage HELPMIJLABELCAPTION.xlsm

Het eerste product wordt weergegeven zonder decimalen en het tweede product correct. Enig idee hoe dat kan?

 

[Niels28]

Ja dat komt omdat het precies 64 euro is, dus ,00 wordt niet weergegeven.
Zo kun je dat oplossen dat er wel 64,00 wordt weergegeven.

       purprice.Caption = Format(WorksheetFunction.Round(.Offset(, 5).Value, 2), "#.00")

Niels

 

[arnose09]

Inderdaad, hartelijk bedankt!

P.s. bij bv. 0,41 gaf het label als resultaat ,41. Dit heb ik opgelost door de code te veranderen:

purprice.Caption = Format(WorksheetFunction.Round(.Offset(, 5).Value, 2), "#[B]0[/B].00")