Lookupfunctie neemt opmaak niet over

[Glenn257]

Hallo,

Ik een simpel excelsheet die waarden overneem dmv Lookup, alleen wordt de opmaak niet goed overgenomen.

Zie mijn voorbeeld
Bekijk bijlage Voorbeeld opmaak.xls

Kunnen jullie mij helpen?

Gr, Glenn

 

[Haije]

Glenn,

vert.zoeken is er niet voor gemaakt om ook opmaak mee te nemen, dus wat je ziet is zoals het beschikbaar is......
Als je van te voren weet wat er in een bepaalde cel tevoorschijn zal komen, kun je de celopmaak eerst instellen.

 

[Glenn257]

Haije,

Dat weet ik dus niet.

Is er een andere manier om dit op te lossen?

 

[Haije]

Glenn,

dat zou ik zo 1,2,3, niet weten, maar wellicht is er iemand anders die wel een idee heeft.

 

[koster1984]

Het kan wel met vba (druk op ALT+F11, en plak onderstaande code achter het blad)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, i As Long
If Not Intersect(Target, [A19:A38]) Is Nothing Then
    Application.ScreenUpdating = False
    Set c = Sheets(1).Range("A4:A16").Find(Target, , xlFormulas, xlWhole)
        If Not c Is Nothing Then
            For i = 0 To 3
                Application.EnableEvents = False
                c.Offset(, i).Copy
                Target.Offset(, i).PasteSpecial
                Application.CutCopyMode = False
                Application.EnableEvents = True
            Next i
            Target.Offset(1).Select
        End If
    Application.ScreenUpdating = True
End If
End Sub