Ich möchte die RGB-Werte der Zellfarbe (Hintergrund, Motif) auslesen. Hier im Forum fand ich dazu ein Makro, das das Ergebnis als Message-Box ausgibt. Ich möchte dieses aber so verändern, dass die Farbwerte der Zelle B12 in die Zellen C12, D12 und E12 geschrieben werden. Da ich das für alle 56 Windows-Farben machen will, soll der Vorgang bis in Zelle B68 wiederholt werden (Ergebnisse in C68, D68 und E68 schreiben). Das ursprüngliche Makro mit Message-Box lautet so:
Sub GetCellColor()
With ActiveCell
idx = ActiveCell.Interior.ColorIndex
deci = ActiveCell.Interior.Color
hexi = Hex(deci)
While Len(hexi) < 6
hexi = "0" & hexi
Wend
hexR = Mid(hexi, 5, 2) 'Hex R
hexG = Mid(hexi, 3, 2) 'Hex G
hexB = Mid(hexi, 1, 2) 'Hex B
decR = CLng("&H" & Mid(hexi, 5, 2)) 'Dec R
decG = CLng("&H" & Mid(hexi, 3, 2)) 'Dec G
decB = CLng("&H" & Mid(hexi, 1, 2)) 'Dec b
End With
msg = msg & "Dec:" & vbTab & deci & vbCrLf
msg = msg & "Hex:" & vbTab & hexi & vbCrLf
msg = msg & "Idx:" & vbTab & idx & vbCrLf
msg = msg & vbCrLf
msg = msg & vbTab & "R" & vbTab & "G" & vbTab & "B" & vbCrLf
msg = msg & "Hex:" & vbTab & hexR & vbTab & hexG & vbTab & hexB & vbCrLf
msg = msg & "Dec:" & vbTab & decR & vbTab & decG & vbTab & decB & vbCrLf
MsgBox msg, vbOKOnly, "Activecell Color Info"
End Sub
Es wäre nett, wenn mir jemand helfen könnte.
Beste Grüsse von Hartmut