Problem mit Farbgebung
24.02.2022 12:14:00
OliverLerch
Ich habe folgendes Problem: Ich habe eine eigene Karte erstellt mit Freihandformen aller Gemeinden meines Bundeslandes. Diese sollen nun je nach Wert anders eingefärbt werden. Bisher habe ich dafür die vorgegebenen Farben von Excel (fctfarbe) verwendet, möchte aber, damit ich mehr Möglichkeiten habe, Abstufungen zu treffen, auf RGB umstellen.
Nun habe ich das selbst versucht, stoße dabei jedoch auf das Problem, dass die einzige Farbe, die akzeptiert wird ohne Fehlermeldung, Scharz ist - also RGB (0,0,0)
Was habe ich übersehen/falsch gemacht?
Der Code für die Farbgebung lautet wie folgt (derzeit nur mit schwarz):
Private Function RGBfarbe(dblWert As Double) As Byte
Select Case dblWert
Case Is >= 0.22
RGBfarbe = RGB(0, 255, 0)
Case Is >= 0.2
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.18
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.16
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.14
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.12
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.1
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.08
RGBfarbe = RGB(0, 0, 0)
Case Is >= 0.06
RGBfarbe = RGB(0, 0, 0)
Case Else
RGBfarbe = RGB(0, 0, 0)
End Select
End Function
Der code darüber lautet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("D2") Then
ActiveSheet.Shapes("Alberschwende").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = RGBfarbe(Target.Value)
End With
Target.Select
End If
Freue mich über Hilfe für einen VBA-Nerd wie mich!
Sg
Oliver