Sortering efter farve

Fyldfarven kan "hentes via VBA" som et tal - herefter skulle der kunne sorteres.

Function Farve(rng As Range)
Application.Volatile
Farve = rng.Interior.ColorIndex
End Function

i arket taster du =Farve(celle)

hvor celle er den celle du vil have farvekode for. fx. A1

Koden indsættes i det pågældende ark - kolonneMed Farve tilpasses

Dim antalRæk, antalKol
Const kolonneMedFarve = 1      'A=, B=2 o.s.v. Tilpasses
Sub findFyldfarve()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    For ræk = 1 To antalRæk
        Cells(ræk, kolonneMedFarve).Select
        Cells(ræk, antalKol + 1) = Selection.Interior.ColorIndex
    Next ræk
End Sub

excelent, din udgave virker, men når ikke når man opdaterer en celle med en ny farve...skal der indsættes en "Update"?

åh nej det glemte jeg lige i farten
den opdateres ved genberegning (F9)

så skal man have en kode til at køre ved fx. celle-valg/ændring
sprørgsmål er om det er umagen værd, eller du kan anvende F9 ?

i såfald skal denne kode indsættes i arkets kodemodul
(højreklik på arkfane, vælg "Vis programkode" indsæt kode i vinduet)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

excelent, læg et svar, tak for hjælpen. Supertekst, nåede aldrig at kigge på din udgave, den så lidt mere listig ud, men tak for indlægget, man ved aldrig om jeg kommer til at bruge den en anden god gang.

ok velbekom