Zelle mit RGB färben - Methode Colors schlägt fehl
06.05.2017 08:39:27
Moritz
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A4:C4, J4")) Is Nothing Then
Dim lngColor As Long
lngColor = RGB(Cells(4, "A").Value, Cells(4, "B").Value, Cells(4, "C").Value)
With Range("D4").Interior
.Color = lngColor
ActiveWorkbook.Colors(.ColorIndex) = lngColor
End With
End If
Application.ScreenUpdating = True
End Sub