Farvegengivelse med VLOOKUP-opslag?

Man kan ikke få farven fra en anden celle via en formel, det kan man kun via VBA makroer.

hvordan gør man så det?

En formel, kan ikke trikke en makro, det kan en indtastning, hvilket område taster du i for at få formlen til at hente, A kolonnen, ser det ud til, og du slår op i arket Koder A2 til B511, hvor du får værdien i B kolonnen.

Hvor har du formlen, er den i samme række som du taster ind i. ? og hvilken kolonne

formlen står i kolone B

Jeg indstaster tal i kollone A

Ok denne gælder hele kolonne A som indtastningsområde

Du skal ikke bruge din formel i B kolonnen, det gør makroen

Makroen skal i modulet på det ark som du taster i.

Det gøres vet at højreklikke på arkfanen og vælg vis programkode, der sætter du denne ind.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Opslag As Variant, I As Long
    Opslag = Worksheets("Koder").Range("A1:B511")    ' din opslagsliste
      If Target.Column = 1 Then
      Target.Offset(0, 1).Interior.ColorIndex = xlNone
        Target.Offset(0, 1) = ""
        For I = 1 To UBound(Opslag)
            If Opslag(I, 1) = Target Then
                Target.Offset(0, 1) = Opslag(I, 2)
                Target.Offset(0, 1).Interior.ColorIndex = Worksheets("Koder").Range("B" & I).Interior.ColorIndex
                Exit For
            End If
        Next
    End If
End Sub


Husk, at alt som laves med makro, ikke kan fortrydes, så øv på en kopi først.

Jeg kan ikke få det til at virke.. den giver fejl: compile errror: Syntax Error

hvilken linie ??
og hvis du har rette i den, så sæt koden herind

1. linje og jeg har ikke rettet i den...

har du sat koden ind sådan:

Makroen skal i modulet på det ark som du taster i.

Det gøres vet at højreklikke på arkfanen og vælg vis programkode, der sætter du denne ind.
Du skriver 1. linie
er det
Private Sub Worksheet_Change(ByVal Target As Range)

eller denne du mener

    Dim Opslag As Variant, I As Long

Jeg har gjort som du beskriver.

Det er denne linje:

Private Sub Worksheet_Change(ByVal Target As Range)

Den bliver gul

Kan du sende et kopi af regnearket, så ser jeg på det,
Den linie der bliver gul er en standardlinie, så der er ikke fejl i den.

Forresten hvilken fejl siger den ?

kabbak snabela tiscali dot dk

glem det... Finder på noget andet...lukker spørgsmålet