Celeigenschappen, waarde / categorie overnemen

[RichieL]

Goedemorgen,

Waarschijnlijk is het heel makkelijk, maar kan niet vinden hoe het volgende moet doen.
Ik heb een voorbeeldbestandje geplaatst om een idee te geven wat ik bedoel en dit is maar een klein deel van het geheel.
Bekijk bijlage Voorbeeld.xlsx

Via verticaal zoeken wil ik graag dat hij de gegevens ophaalt maar ik zou ook graag willen dat hij de cel opmaak / categorie overneemt (zie foto)
Nu neem hij alleen de "waarde" over zonder de juiste munteenheid.



Zoekwaarde = M1
Tabelmatrix = A4 : D6

Alvast bedankt!

 

[Timshel]

Dat kan niet met formules. Zet deze code in de module van het werkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Range
    If Target.Address = "$M$1" Then
        Set Cl = Columns(1).Find(Target.Value, , , xlWhole)
        If Not Cl Is Nothing Then
            Range("M3") = Cl.Offset(, 3)
            Range("M3").NumberFormat = Cl.Offset(, 3).NumberFormat
        End If
    End If
End Sub

 

[emields]

of je moet het zo doen.

 

[RichieL]

Bedankt @Timshel.
Werkt perfect!