Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen:

Angenommen, in Zelle **A1** steht der RGB-Code als Zahl (z.B. `255` für Rot, `65535` für Gelb, `16711680` für Blau) oder als Text im Format `"255,0,0"` (für Rot).

**Variante 1: RGB-Code als Zahl in der Zelle**
```vba
Dim rgbWert As Long
rgbWert = Range("A1").Value

With shp
.Line.Visible = msoFalse
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = rgbWert
End With
```

**Variante 2: RGB-Code als Text "R,G,B" in der Zelle**
```vba
Dim farben() As String
Dim rgbWert As Long

farben = Split(Range("A1").Value, ",")
rgbWert = RGB(CInt(farben(0)), CInt(farben(1)), CInt(farben(2)))

With shp
.Line.Visible = msoFalse
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = rgbWert
End With
```

**Hinweis:**
- Die Funktion `RGB(R, G, B)` wandelt die drei Farbwerte in einen Long-Wert um, der von `.ForeColor.RGB` erwartet wird.
- Achte darauf, dass die Werte in der Zelle korrekt formatiert sind.

Weitere Infos zu RGB in VBA findest du z.B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/rgb-function).