celkleur overnemen bij VERT.ZOEKEN

[jos0707]

Op blad 1 heb ik een lijst staan die ik gedefinieerd heb als Kleur (zie bijlage)
Op blad 2 gebruik ik de functie VERT.ZOEKEN om de gegevens uit de lijst Kleur over te brengen
Graag had ik in kolom D op Blad 2 ook de overeenstemmende kleur van Blad 1 meegekregen.
Alvast bedankt.
GRTS,
Jos
Bekijk bijlage Celkleur.xlsx

 

[Elsendoorn2134]

Jos,

Het opzoeken van de kleur met vert.zoeken is niet mogelijk. Hiervoor moet je VBA code maken.
Zet deze in het code scherm bij Blad2

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rGevonden As Range

'Geen verdere actie als er iets veranderd is in een andere kolom dan kolom A.
'Deze wordt automatich gestart als er iets in kolom A veranderd.
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

'Zoek in op blad 1 in kolom A de opgegeven waarde van target.
With Sheets("Blad1").Range("A:A")
    'Zoek naar de waarde van de cel die net is gekleurd
    Set rGevonden = .Find(Target.Value, LookIn:=xlValues)
    'Als waarde gevonden in de lijst dan kleur overnemen.
    'Als niet gevonden dan een melding geven.
    If Not rGevonden Is Nothing Then
        Target.Offset(0, 3).Interior.Color = _
            Sheets("Blad1").Range(rGevonden.Address).Offset(0, 3).Interior.Color
    Else
        If Target.Value <> "" Then
            MsgBox "Opgegeven code " & Target.Value & " staat niet in de lijst", vbCritical, "Foutje"
            Target.ClearContents
        End If
    End If
End With
End Sub

Veel Succes.

 

[jos0707]

werkt blijkbaar niet

Beste,
bedankt voor je reactie maar de macro loopt vast op If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Kan je misschien mijn bestandje met jou macro erin publiceren aub?
Bedankt
Groeten,
Jos

 

[Elsendoorn2134]

Jos,

Hierbij mijn VBA in je bestand.

Bekijk bijlage HelpMijCelkleur.xlsm

Veel Succes.

 

[jos0707]

opgelost

Hallo Elsendoorn,,
hartelijk bedankt voor je hulp bij het oplossen van mijn probleem.
Grts,
Jos

 

[jos0707]

nog een vraag

Hallo Elsendoorn,
ik probeerde jou macro in mijn bestand te krijgen (zie bijlage) Bekijk bijlage Celkeur2.xlsmmaar dat lukt me niet omdat ik veel te weinig kennis heb.
Wil jij me aub nog even helpen?
Alvast bedankt.
Grts,
Jo

 

[jos0707]

hier het bestand zonder wachtwoord. Sorry

hier het bestand zonder wachtwoord. Sorry
Grts,
JosBekijk bijlage Celkeur2.xlsm