Excel 365 VBA Code

[MSCom]

Hallo Zusammen,

ich bitte um Eure Hilfe.

Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013 ohne Probleme lief.

Seit ich ich Excel aus Office 365 verwende, erhalte ich bei der Zeile:

.Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)

die Fehlermeldung, die Methode Range für das Object Range........ist fehlgeschlagen.

Ich bin kein VBA-Spezi. Kann mir jemand helfen?

Danke!


Sub BlasenFaerben()


Dim LetzteZeile As Variant
Dim i As Integer
Dim Prozentwert As Double
Dim Grenze1 As Double
Dim Grenze2 As Double


ActiveSheet.ChartObjects(1).Activate
LetzteZeile = Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = 2 To LetzteZeile
ActiveChart.SeriesCollection(1).Points(i - 1).Select
Prozentwert = Cells(i, 5).Value
Grenze1 = 1 - Prozentwert
Grenze2 = 1.001 - Prozentwert
If Prozentwert <= 0 Then
Grenze1 = 1
Grenze2 = 1
ElseIf Prozentwert >= 1 Then
Grenze1 = 0
Grenze2 = 0
End If

With ActiveChart.SeriesCollection(1).Points(i - 1).Format
.Fill.TwoColorGradient msoGradientHorizontal, 1
.Fill.GradientStops(1).Color.RGB = RGB(220, 220, 220)
.Fill.GradientStops(1).Position = Grenze1
.Fill.GradientStops(2).Color.RGB = RGB(Range("Rot").Value, Range("Grün").Value, Range("Blau").Value)
.Fill.GradientStops(2).Position = Grenze2
End With
Next i

End Sub