Zoekfunctie ctrl+F gevonden cel opmaak wijzigen mogelijk?

[engelrob]

Als ik met ctrl+F nu een waarde zoek wordt de gevonden cel standaard geselecteerd met een kaderrand.
Is het mogelijk de gevonden cel duidelijker te laten tonen, bijvoorbeeld door deze geel op te vullen?
Als ik dan naar de volgende cel ga dient uiteraard die opmaak weer te verdwijnen; is dus alleen om een gevonden waarde duidelijker te tonen.

 

[Cobbe]

Zet dit in je ThisWorkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Cells.Interior.ColorIndex = xlNone
 With ActiveCell
    .Interior.ColorIndex = 33
 End With
End Sub

Maar al je oorspronkelijke kleuren in je bestand zijn dan weg, dus LET OP!!

 

[Roncancio]

Dim rB As Range
Dim iOK As Integer

Private Sub Worksheet_Activate()
Set rB = ActiveCell
iOK = rB.Interior.ColorIndex
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rB.Interior.ColorIndex = iOK
iOK = Target.Interior.ColorIndex
Target.Interior.Color = vbYellow
Set rB = Target
End Sub

Plaats bovenstaande code in Visual Basic Editor. (CTRL-F11).
Zodra de cel verlaten wordt, krijgt het weer de oorspronkelijke kleur voordat het geel werd.

Met vriendelijke groet,


Roncancio

 

[engelrob]

Het is gelukt. Dankjewel.