Cellen kleuren volgens waarde in de cel.

[HORADADA]

Dag allemaal.
Ik heb een probleempje waar ik al een hele tijd mijn tanden op kapot knars.
Misschien kan er mij iemand helpen?
ik zou willen dat Excel dat automatisch voor mij regelt, maar kan de oplossing maar niet vinden.
In een kolom heb ik een aantal waarden staan, waarvan er dubbele waarden zijn.
Ik wil dat de cellen met dezelfde waarde, eenzelfde kleur opvulling krijgen.
De waarden zijn willekeurige waarden, die wisselen.
bv.: alle cellen met waarde A: rood; met waarde B: groen enz (kleuren zijn niet belangrijk)
Met voorwaardelijke opmaak lukt dat niet, omdat er een beperking op zit van 3 kleuren, en ik heb mogelijks meer dan 20 verschillende waarden.

als in de kolom de eerste waarde bv AD185-96 is, en die wordt bv rood gekleurd, dan zouden alle cellen die ook de waarde AD185-96 hebben in deze kolom, ook rood gekleurd dienen gevuld te zijn.
Als in de kolom de eerstvolgende waarde bv ES365-58 is, en die cel wordt groen gevuld, dan zouden alle cellen waar de waarde ES365-58 in voor komt ook groen, of dezelfde kleur dienen gevuld te worden.
enz.

Mocht er iemand een oplossing weten, alvast bedankt!

 

[Roncancio]

Sub Kleuren()
Dim lRij As Long
Dim rBer As Range
Dim iKL As Integer
    lRij = 2

    While Range("A" & lRij).Value <> ""
        If Range("A" & lRij).Interior.ColorIndex < 0 Then
            Range("A:A").AutoFilter 1, Range("A" & lRij).Value
            iKL = Int(Rnd() * 55)
            For Each rBer In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
                rBer.Interior.ColorIndex = iKL
            Next
        End If
        lRij = lRij + 1
    Wend
    Range("A:A").AutoFilter
End Sub

In de A-kolom wordt elke unieke waarde voorzien van een aparte kleur.

Met vriendelijke groet,


Roncancio

 

[HORADADA]

Hartelijk dank Roncancio!
Ik schaam mij te moeten zeggen dat ik daar al maanden op aan het zoeken ben, en Jij lost dat op in een mum van tijd!
Ik heb het uitgetest op mijn toepassing en het werkt perfect!
Ik zal die macro onderbrengen in een knop, voor het gemak.

Misschien nog een vraagje, als het mag?
Kan ik die knop (met Uw macro) onderbrengen onder een knop in het lint van Excel, zodat ik die macro kan gebruiken op andere Excel bestanden met dezelfde noodzaak?
Ik weet niet of dat mogelijk is?
dank bij voorbaat!

 

[Roncancio]

Wat is zeker mogelijk.
Hier wordt in het Engels uitgelegd hoe je dit kunt doen.

Met vriendelijke groet,


Roncancio

 

[HORADADA]

Bedankt Roncancio!
ondertussen staat er een knop op het lint, en het is een droom!
zal mij elke week meer dan een uur besparen.
Van harte bedankt!