ich versuche seit ein paar stunden zellen mit RBG farben zu färben.
Sub einfärben()
i = 1
Do
r = Cells(i, 4) ' hier steht ein zahl (in jeder Zeile um 5 erhöht)
g = Cells(i, 5) ' hier steht ein zahl (in jeder Zeile um 5 erhöht)
b = Cells(i, 6) ' hier steht ein zahl (von 250 an um 5 erniedrigt)
Cells(i, 7).Select -----> in dieser zelle sollte die Farbe dargestellt werden
With Selection.Interior
.Pattern = xlsolid
.PatternColor = RGB(r, g, b)
End With
i = i + 1
Loop Until i > 50
ich dachte mir so, dass ich damit die Zelle in Spalte 7 in verschiedenen Farben einfärben kann, aber die Zelle wird immer nur weiss. Woran liegt das?? Wenn ich xlsolid in xlgrid änderen bekomme ich graue Gitter.
Was habe ich übersehen????
Michael