Iedereen weet dat je in Excel kleuren kunt gebruiken om de cijfers van een werkblad meer te laten 'spreken', voorwaardelijke opmaak is al een stuk minder bekend maar wisten jullie dat je ook op kleur kan sorteren? In Excel 2007 en hoger kun je bij 'Sorteren op' in plaats van 'waarden' - 'Celkleur' kiezen en dan de kleurvolgorde aangeven waarop je wilt sorteren.

In Excel 2003 (maar natuurlijk ook gewoon in Excel 2007 / Excel 2010 / Excel 2013) en veel handiger eigenlijk kunnen we op kleur sorteren door een VBA functie te schrijven.

Kies: ALT-F11 - Invoegen - Module en plak de volgende code:

Function KleurRangorde(KleurVolgorde As Range, Opzoeken As Range)

Dim i As Integer
Dim ICol1 As Integer
Dim ICol2 As Integer

i = 1
ICol2 = -1
KleurRangorde = 0

'Loop until match is found
Do Until ICol1 = ICol2
'Vervang "Interior" door Font om op font kleur te sorteren
ICol1 = KleurVolgorde(i, 1).Interior.ColorIndex
ICol2 = Opzoeken.Interior.ColorIndex
If i = KleurVolgorde.Rows.Count + 1 Then
'Geen overeenkomst gevonden in de lijst
KleurRangorde = "Geen overeenkomst!!!"
Exit Do
End If
'Geef het nummer in de lijst terug van de overeenkomstige kleur
KleurRangorde = i
i = i + 1
Loop
End Function

In kolom A hebben we een lijst met kleuren of anders gezegd, hier bepalen we de volgorde van de kleuren. In kolom C staan dezelfde kleuren maar dan met de nieuw gemaakte formule / functie 'KleurRangorde'. Deze functie krijgt als eerste parameter (voor de punt-komma) een range ($A$2:$A$9) waarin de kleur(volgorde) staat en als 2e parameter de cel waar de formule in staat. We krijgen nu het rangnummer terug van de betreffende kleur, in bovenstaande afbeelding 7 omdat CYAAN de 7e positie in de lijst met kleuren in neemt!

Om te sorteren op Fontkleur i.p.v. achtergrondkleur veranderen we in de functie interior.ColorIndex door Font.ColorIndex.

Download HIER het voorbeeldbestand!