RGB Farbcode auslesen
16.07.2020 12:38:36
MarWin_115
ich möchte den RGB-Farbindex einer Zelle in Excel ermitteln.
Dazu habe ich folgenden VBA Code in ein Modul meiner Arbeitsmappe geschrieben:
Function RGB_Hintergrundfarbe(Farbe As Range)
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Wert = Farbe.Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert Rot) / 256
Grün = Wert Mod 256
Wert = (Wert Grün) / 256
Blau = Wert Mod 256
RGB_Hintergrundfarbe = Rot & , & Grün & , & Blau
End Function
Anschließend habe ich die Funktion in eine leere Zelle eingefügt und als Funktionsargument eine Zelle mit Hintergrundfarbe gewählt.
Daraufhin bringt er einen Fehler beim Kompilieren (Syntaxfehler).
Was mach ich verkehrt?