Vert.zoeken en celopmaak

Hallo,

Ik zou graag de formule vert.zoeken willen toepassen en welzo dat deze de celopmaak mee kopieert naar de aangegeven cellen. Zoals in het schema te zien is worden standaard met vert.zoeken alleen de waardes gekopieerd.

De macro's die van toepassing zijn op het schema heb ik niet zelf gemaakt. Ik snap de logica hierachter grotendeels (maar ben zelf geen VBA specialist).

Ook met Voorwaardelijke opmaak kwam ik er niet uit. (dit is volgens mij ook niet de manier).

Wie kan mij helpen?

Groeten!

Hallo youri69

Met vertikaal zoeken kun je de kleuren niet mee laten gaan.
Als je de kleur afhankelijk laat zijn van de inhoud lukt dit dus wel mbv voorwaardelijke opmaak.

Zie bijlage (met nog enkele aanpassingen)

@Willem,


Bedankt! dit werk inderdaad. Alleen is het wel zo dat je dus een bepaalde waarde aan die kleur koppelt. Dus in mijn geval kan ik zo het hele kleuren verhaal laten vervallen, (het ging mij puur om de kleuren en niet om een waarde).

Is het niet mogelijk om alleen de kleur te kopieren dmv een macro?


Groeten en iig bedankt!

Bij de eerste 7 personen in het schema werken de formules/macro's prima. Alleen vanaf de achtste krijg ik de onderstaande foutmelding;

Fout13, typen komen niet met elkaar overeen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


Dim x As Range
For Each x In ActiveSheet.UsedRange
With x
Select Case .Value
Case Is = "Z"
.Interior.ColorIndex = 3
Case Is = "B"
.Interior.ColorIndex = 27
Case Is = "V"
.Interior.ColorIndex = 10
Case Is = "D"
.Interior.ColorIndex = 21
Case Is = "C"
.Interior.ColorIndex = 41
Case Is = "v"
.Interior.ColorIndex = 43
Case Else
.Interior.ColorIndex = xlNone
End Select

End With
Next

End Sub


Het dik gedrukte deel geeft een fout. Als ik met de cursor op .value ga staan krijg ik het volgende:

.value =fout 2042

Hoe kan ik dit verhelpen?

Alvast bedankt!

Pas het bereik van het vertikaal zoeken aan.

Je zou ook nog kunnen overwegen of je de letter dezelfde kleur geeft als de achtergrond kleur.

En ls je excel 2007 hebt kun je kiezen voor voorwaardelijk opmaak kiezen ipv VBA

Celbereik aangepast en idd krijg de foutmelding niet meer.

Bedankt voor de support.


Groeten