[wbendl]

Hi!

Eine Lösung mit VBA:

Function NewX(ByVal intX As Integer) As Integer

Select Case intX
Case 0 To 5
NewX = 25
Case 5.0001 To 10
NewX = 20
Case 10.0001 To 15
NewX = 15
Case Else
MsgBox "Bereich nicht definiert"
End Select

End Function

mfg

WB