Farbscala (Grüntöne) mit RGB erzeugen
26.02.2004 13:57:19
Matthias
ich bin auf der Suche nach einer Möglichkeit diverse Grüntöne in einem Zellbereich auszugeben. Leider ist mir die Herleitung der RGB-Werte nicht geläufig.
Mein Versuch:
Sub Farbscala_anlegen()
For i = 2 To 256
r = 0
g = 256 / 256 * i
b = 0
Cells(i, 1).Interior.Color = RGB(r, g, b)
Cells(i, 2) = "RGB(" & r & ", " & g & ", " & b & ")"
Next
End Sub
... führte insofern nur zu Grünblöcken.
Schön wäre es, wenn diese Töne von gelbgrün bis blaugrün möglich wären.
Herzlichen Dank für sachdienliche Hinweise.
Matthias