Afronden én weergave

[stefano]

Als ik het cijfer 14 afrond met formule

=afronden(14;1) dan verschijnt 14

Ik zou hier graag én afronden naar 1 decimaal én ook de nul zien, dus 14,0 in plaats van 14

Let wel: het aantal decimalen zoek ik op uit een lijst en dat kan variëren van 0 tot 3)

=afronden(14;2) zou dan op 14,00 moeten komen te staan en

= afronden(14;3) zou dan op 14,000 moeten komen te staan.

Kan dit?

voorbeeld in bijlage met formule

 

[AlexCEL]

Zo wellicht voor B2?

=TEKST(AFRONDEN(14;A2);KIEZEN(A2+1;"0";"0,0";"0,00";"0,000")))

 

[AD1957]

of met VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2
    If Target.Offset(, -1) = 0 Then
        Target = Round(Target, 0)
    ElseIf Target.Offset(, -1) = 1 Then
        Target = Round(Target, 1)
        Target.NumberFormat = "0.0"
     ElseIf Target.Offset(, -1) = 2 Then
        Target = Round(Target, 2)
        Target.NumberFormat = "0.00"
     ElseIf Target.Offset(, -1) = 3 Then
        Target = Round(Target, 3)
        Target.NumberFormat = "0.000"
    End If
End Select
End Sub

Waarschijnlijk kan het ook nog korter.:d

 

[stefano]

Dank je wel heren, ik probeer het vanavond uit!

 

[JEC.]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 And Target.Count = 1 Then
   Target.NumberFormat = Choose(Target.Offset(, -1).Value + 1, "0", "0.0", "0.00", "0.000")
   Target.Value = Round(Target.Value, Target.Offset(, -1).Value)
 End If
End Sub

 

[sylvester-ponte]

of met voorwaardelijke opmaak: zie jouw gele cellen