sorteren op celkleur

[phille125]

dag allen
kan ik in excel 2003 op sorteren op celkleur?
zoja hoe?

 

[Gert Bouwmeeste]

Dat kan door gebruik te maken van een hulpkolom. Daar zet je de waarde van de celkleur (dus de OPVUL-kleur) in met onderstaande functie van Dave Hawley (iets aangepast). In bijgaand Excel-bestand is de functie al opgenomen.

Function OpvulKleur(rCell As Range, Optional ColorName As Boolean)
Dim strColor As String, iIndexNum As Integer
'Written by Dave Hawley of OzGrid.com

Select Case rCell.Interior.ColorIndex 'Voor opvulkleur
    Case 1
        iIndexNum = 1
    Case 53
        iIndexNum = 53
    Case 52
        iIndexNum = 52
    Case 51
        iIndexNum = 51
    Case 49
        iIndexNum = 49
    Case 11
        iIndexNum = 11
    Case 55
        iIndexNum = 55
    Case 56
        iIndexNum = 56
    Case 9
        iIndexNum = 9
    Case 46
          iIndexNum = 46
    Case 12
        iIndexNum = 12
    Case 10
        iIndexNum = 10
    Case 14
        iIndexNum = 14
    Case 5
        iIndexNum = 5
    Case 47
        iIndexNum = 47
    Case 16
        iIndexNum = 16
    Case 3
        iIndexNum = 3
    Case 45
        iIndexNum = 45
    Case 43
        iIndexNum = 43
    Case 50
        iIndexNum = 50
    Case 42
        iIndexNum = 42
    Case 41
        iIndexNum = 41
    Case 13
        iIndexNum = 13
    Case 48
        iIndexNum = 48
    Case 7
        iIndexNum = 7
    Case 44
        iIndexNum = 44
    Case 6
        iIndexNum = 6
    Case 4
        iIndexNum = 4
    Case 8
        iIndexNum = 8
    Case 33
        iIndexNum = 33
    Case 54
        iIndexNum = 54
    Case 15
        iIndexNum = 15
    Case 38
        iIndexNum = 38
    Case 40
        iIndexNum = 40
    Case 36
        iIndexNum = 36
    Case 35
        iIndexNum = 35
    Case 34
        iIndexNum = 34
    Case 37
        iIndexNum = 37
    Case 39
        iIndexNum = 39
    Case 2
        iIndexNum = 2
    Case Else
        strColor = "Blanco"
End Select
    If ColorName = True Or strColor = "Blanco" Then 'Voor kleurnaam
        OpvulKleur = strColor
    Else
        OpvulKleur = iIndexNum
    End If
End Function

 

[Gert Bouwmeeste]

Oh ja, nog welkom op het forum!

 

[snb]

Dit kan iets eenvoudiger met de funktie:

Function kleurnummer(target)
    kleurnummer = target.Interior.ColorIndex
End Function

 

[Gert Bouwmeeste]

@snb: toegevoegd aan de verzameling. Dank.