Hallo könnt ihr mir helfen,

ich würde gerne eine Form mit einem Farbverlauf füllen. Der 0%-100% abbilden soll. Ich bin leider totaler Anfänger und habe mich erstmal an einer normalen Einfärbung versucht. In Tabelle 2 habe ich ein Dashboard mit Prozentzahlen die ich gerne in einer Blume veranschaulichen würde dabei soll ein Blütenblatt von der Mitte nach Außen mit der Farbe gefüllt werden je nachdem wie hoch die Prozentzahl ist.

Könnt ihr mir einen Ansatz geben wie ich weitermachen kann?

Private Sub Worksheet_Calculate() 
FarbeDreieck 
End Sub


Code:
Sub FarbeDreieck() 
    If Tabelle2.Range("A3") < 51 Then 
        With Tabelle1.Shapes("Dreieck1").Fill 
            .ForeColor.RGB = RGB(255, 0, 0) 
        End With 
    Else 
        With Tabelle1.Shapes("Dreieck1").Fill 
            .ForeColor.RGB = RGB(0, 255, 0) 
        End With 
    End If 
End Sub