Cel kleur o.b.v. opgegeven RGB waarde

[tommie06]

Beste Lezers.

Ik heb in Excel een tabel met items en een bijbehorende kleur. (Meer dan 2000 regels en groeiend)
De kleuren ca. 50 verschillende heb ik in RGB en Hexadecimaal genoteerd.

Wat ik wil is:
Cel A1 een opvullingskleur geven a.d.h.v. een waarde in cel A2
bv:
- cel waarde A2 is C91A09. Dan moet de opvullingskleur in cel A1 rood worden)
- cel waarde A2 is FFFFFF. Dan moet de opvullingskleur in cel A1 wit worden)
- cel waarde A2 is 81007B. Dan moet de opvullingskleur in cel A1 paars worden)

Hoe doe ik dit handig zonder handmatig elke cel (2000 en groeiend) van een eigen opvulling te moeten voorzien?


Alvast bedankt

 

[emields]

misschien zo?

https://www.helpmij.nl/forum/announcement.php?f=5

 

[tommie06]

misschien zo?

https://www.helpmij.nl/forum/announcement.php?f=5

Hoe?

 

[gast0660]

Volgens uw voorbeeld.

Sub dotch()
Dim i As Integer
On Error Resume Next
For i = 4 To 6
    Cells(i, 2).Interior.Color = RGB(Cells(i, 4), Cells(i, 5), Cells(i, 6))
Next i
End Sub

4 is start rij, 6 is laatse rij,4 en 6 aanpassen naar de rijen in je echte bestand.

 

[edmoor]

Zal je volgens mij toch eerst die Hex waarden naar Long moeten converteren:

    Dim X As String
    Dim R As Long
    Dim G As Long
    Dim B As Long
    
    X = Range("A1").Value
    R = CLng("&H" & Left(X, 2))
    G = CLng("&H" & Mid(X, 3, 2))
    B = CLng("&H" & Right(X, 2))
    
    Range("A2").Interior.Color = RGB(R, G, B)

 

[tommie06]

Volgens uw voorbeeld.

Sub dotch()
Dim i As Integer
On Error Resume Next
For i = 4 To 6
    Cells(i, 2).Interior.Color = RGB(Cells(i, 4), Cells(i, 5), Cells(i, 6))
Next i
End Sub

4 is start rij, 6 is laatse rij,4 en 6 aanpassen naar de rijen in je echte bestand.

Top!!! Dit werkt in ieder geval. Bedankt.

Heeft iemand nog een optie zonder macro?
Het kan namelijk nog wel eens zijn dat een kleur wijzigt of er nieuwe regels aan toe worden gevoegd en dan zou ik de macro opnieuw moeten starten voor de lijst weer juist is.

 

[VenA]

Het quoten is niet nodig.
Zonder macro kan dit niet. Wat is het nut eigenlijk van 50 verschillende kleuren?

[Edit] het bestandje even bekeken en deze klopt niet met de vraagstelling. Plaats altijd een representatief voorbeeld.