farvekoder i excel uden brug af corditional formatting

Hvor mange kunder er der?

Er der noget kriterier i form af celleindhold, der kunne anvendes til farvesætningen via VBA?

Mon ikke det er noget lignende dette du skal ha fat i:
http://www.eksperten.dk/spm/822225

Det skal lige siges, at det ikke er noget jeg har det mindste forstand på.  :-)

jeg har som sagt 6 kundegrupper (farver)

1. 23 kunder
2. 3 kunder
3. 3 kunder
4. 4 kunder
5. 2 kunder
6. 6 kunder

hver kunde står i egen celle hvorefter den orig. kolonne nu skal have farve alt efter hvilken kunde det er og hvilken gruppe kunden hører ind under.

Kriteriet for farvesætningen er at hver kundegruppe har deres egen farve.

Skal det forstås sådan:

I "din egen liste" er kunderne forsynet med farver. I "original-filen" skal den enkelte kunde have samme farve, som "i din liste"?

D.v.s. at hvis der er et kundenr - eller anden entydig identifikation - så kan "din liste" gennemløbes og for hver række foretages et opslag i "originalen" og samme farve sættes heri.

ja præcis... eller lige nu har jeg bare sat "egen liste" ude til højre og tænkte så man på en måde kunne sige at hvis orignal celle X er li med en af cellerne fra X-Y i "egen liste" skal den være farve Z

men hvis det er nemmere og sætte "egen liste" ark 2 er det ingen problem

Hvilke kolonner kan sammenlignes?

Hvis det vil lette "ekspeditionen" - så er du velkommen til at sende din fil til:
pb@supertekst-it.dk

Jeg må desværre ikke sende hele filen da der er fortrolige oplysninger i den.

det er kolonne F som skal sammenlignes med kolonne W der er delt op i grupper:

gruppe 1 (farvekode 1) = Celle: 6-28
gruppe 2 (farvekode 2) = Celle: 29-31
gruppe 3 (farvekode 3) = Celle: 32-33
gruppe 4 (farvekode 4) = Celle: 34-37
gruppe 5 (farvekode 5) = Celle: 38-39
gruppe 6 (farvekode 6) = Celle: 40-45

Hvis det er nemmere og dele grupperne op i hver deres kolonne er dette ikke et problem!

Ok - har opbygget en model, hvor VBA-koden er anbragt i Ark1.
Hvis du vil have min "model" - så send en mail til: pb@supertekst-it.dk

Const startRækF = 6
Const aktuelleArkNavn = "Ark1"

Dim ark As Worksheet
Sub farvesætning()
    Set ark = Worksheets(aktuelleArkNavn)
   
    gennemløbKolonneF
    MsgBox ("Gennemløb er afsluttet")
End Sub
Private Sub gennemløbKolonneF()
Dim Fræk, egenKunde, farve
    For Fræk = startRækF To 65000
        With ark
Rem Afbryd hvis tom cellemødes i kolonnen
            egenKunde = .Range("F" & CStr(Fræk)).Value
            If egenKunde = "" Then
                Exit Sub
            Else
    Rem Eller lav opslag i kolonne W& hent fyldefarven
                farve = hentfarveFraKolonneW(egenKunde)
                If farve <> -1 Then
                    .Range("F" & CStr(Fræk)).Interior.ColorIndex = farve
                End If
            End If
        End With
    Next Fræk
End Sub
Private Function hentfarveFraKolonneW(egenKunde)
    With ark.Range("W6" & ":W65000")
        Set c = .Find(egenKunde, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                ræk = c.Row
                hentfarveFraKolonneW = ark.Range("W" & CStr(ræk)).Interior.ColorIndex
            Else
                hentfarveFraKolonneW = -1
            End If
    End With
End Function

OK - her er et svar....

tusind tak for hjælpen:-)

Selv tak...