Interior.ColorIndex contra RGB(x,y,z)
26.01.2005 20:29:16
r.sch.
Excel kennt bekanntlich 56 Farben. Wie bekomme ich den RGB Wert zu einen Index Wert?
Mit folgenden 2 Routinen kann ich zwar die Farben in einer Tabelle darstellen:
Sub farben()
For B = 1 To 56
If B < 29 Then
Cells(B, 1).Interior.ColorIndex = B
Cells(B, 1) = B
Cells(B, 1).Font.Size = 8
Else
Cells(B - 28, 2).Interior.ColorIndex = B
Cells(B - 28, 2) = B
Cells(B - 28, 2).Font.Size = 8
End If
Next B
End Sub
Sub rgb_test()
Dim B, G, R
Dim BEnd, GEnd, REnd, Schritt
BEnd = 255: REnd = 255: GEnd = 255: Schritt = 51
For R = 0 To REnd Step Schritt
For G = 0 To GEnd Step Schritt
For B = 0 To BEnd Step Schritt
Tabelle1.Cells(1 + B / Schritt + R / Schritt * (REnd / Schritt + 1), 4 + G / Schritt).Interior.Color = rgb(R, G, B)
Tabelle1.Cells(1 + B / Schritt + R / Schritt * (REnd / Schritt + 1), 4 + G / Schritt) = Format(R, "000") & " " & Format(G, "000") & " " & Format(B, "000")
Next B
Next G
Next R
End Sub
aber da ich eigentlich den BackColor Wert einer UserForm TextBox ändern will, indem ich den Index dort eintrage (um ihn an anderer Stelle auszuwerten), brauche ich an der Stelle die zugehörigen RGB Werte.
Danke schon mal im Voraus und
Gruß aus 'm Vorharz
Reinhard