<strong>Percentage_Gradient1</strong> = Worksheets("CALC").Range("I123").Value
Set colorgradient = Worksheets("CALC").Shapes("Farbverlauf1").Fill
With colorgradient
.ForeColor.RGB = RGB(0, 255, 0)
.OneColorGradient msoGradientVertical, 1, 1
.GradientStops.Insert RGB(255, 255, 0), <strong>Percentage_Gradient1</strong>
.GradientStops.Insert RGB(255, 200, 0), 0.5
.GradientStops.Insert RGB(255, 0, 0), 0.75
.GradientStops.Insert RGB(205, 0, 0), 0.88
.GradientStops.Insert RGB(205, 0, 0), 0.99
End With
End Sub