Zelle mit RGB färben - Methode Colors schlägt fehl
06.05.2017 08:39:27
Moritz
Liebe VBA Experten - ich habe ein vermutlich simples Problem mit dem Färben einer Zelle, für das ich den ColorIndex benutze. Bei den RGB-Werte 0,0,0 / 255,0,0 / 255,255,255 u.ä. erscheint jedoch der Laufzeitfehler 1004 -- Die Methode 'Colors' für das Objekt '_Workbook' ist fehlgeschlagen -- das heißt immer wenn es an die Grenzen der Farbskala geht. Da ich VBA kaum benutze, komme trotz viel Rumprobierens nicht auf die Lösung. Da ich eine ganze Reihe von Zellen einfärbe, tritt das Problem mehrfach auf. Der Einfachheit halber steht unten nur den Code für Zelle D4, mit dem die RBG-Werte aus den Zellen A4:C4 ausgelesen werden. Für jede Hilfe wäre ich sehr dankbar! Viele Grüße, 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