ich habe in Spalte A ab Zeile 2 die Zellen mit Füllfarbe dargestellt. Wie kann ich in Spalte B, C, und D die RGB-Werte von Füllfarbe eintragen?
Vielen Dank im Voraus.
Liebe Grüße
Selma
Sub RGBAnzeige()
' auf Grundlage von einem Code von Nepumuk
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
' ****** Ergänzung Hajo
Dim i As Integer
For i = 2 To 57
' Farbe in Spalte A
Cells(i, 1).Interior.ColorIndex = i
Wert = Cells(i, 1).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
' MsgBox Rot & ", " & Grün & ", " & Blau
' ***** Ergänzung Hajo
Cells(i, 3) = Rot
Cells(i, 4) = Grün
Cells(i, 5) = Blau
Next i
'***** Ergänzung Hajo
Cells(58, 3) = "Rot"
Cells(58, 4) = "Grün"
Cells(58, 5) = "Blau"
Cells(58, 3) = "RGB Farbwerte"
End Sub