Opgelost 1 cijfer achter de komma weergeven in msgbox

[Melkboer]

Mijn vraag
Ik heb in een sheet in een cel een waarde staan die ik in een msgbox laat zien.
Dat werkt goed, alleen wil ik dat er maar 1 cijfer achter de komma wordt weergegeven.

Sheets("sheet1").Select
Range("J2").Select
MsgBox "Aantal MB vacuumverlies is: " & Range("J2").Value, vbOKOnly + vbInformation, "Info"

Wat ik al gevonden of geprobeerd heb is van alles, maar nog geen resultaat.

Wie kan me hierbij helpen?

 

[SjonR]

zo?

Sub SjonR()
MsgBox "Aantal MB vacuumverlies is: " & Round(Range("J2").Value, 1), vbOKOnly + vbInformation, "Info"
End Sub

 

[Melkboer]

Hallo Sjon,

Dat werkt.. Bedankt voor oplossing..

 

[snb]

gebruik format:

Sub M_snb()
   MsgBox "Vacuumverlies " & format([J2],"0.0 \Mb")
End Sub