Cellen dezelfde kleur geven vanuit een ander blad

[kabebanaan]

Hallo,

Wie weet hoe je een cel met tekst dezelfde opmaak (achtergrondkleur) kan geven als de cellen uit een ander blad.

Heb een voorbeeldbestand toegevoegd.

 

[Spiderman]

Hoi kabebanaan,

IK heb er ff het volgende van gemaakt. Het is niet al te netje gemaakt maar het werkt

Suc6

Edit: Ik heb het bestandje nog ff iets aangepast

 

[Wigi]

Hoi kabebanaan,

IK heb er ff het volgende van gemaakt. Het is niet al te netje gemaakt maar het werkt

Suc6

Edit: Ik heb het bestandje nog ff iets aangepast

Dit werkt ook en denk ik wel interessanter, zonder afbreuk te willen doen aan het werk van Arno, dat ook werkte.

Sub zoekenformaat()
Dim c As Range
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If c <> "" Then
        On Error Resume Next
        c.Interior.ColorIndex = Sheets("Blad2").Range("A1").CurrentRegion.Find(c, lookat:=xlWhole).Interior.ColorIndex
    End If
Next
End Sub

Wigi