Textbox achterkant zou gekleurd moeten worden

[bjornesto]

Ik heb een bestand met daarin cijfers in textboxen (zijn melders op een plan). (zie bestand onderaan)
en 2 command buttons (codes werken maar zou om beter te kunnen zien dat willen veranderen)

1 button dient om die melder te zoeken
--> Hij zal dan de tekstbox de font vergroten in het vet zetten en onderlijnen
1 button dient om textboxen terug in originele staat te zetten.

Graag zou ik nu graag hebben dat als ik een melder zoek
Hij de melder vergroot (kan dit al aanpassen)
Font veranderd in witte letters (kan dit aanpassen)
heb al geprobeerd door middel van record macro maar lukt mij niet om de achtergrond te vullen.

kan iemand mij hierbij helpen
Heb Excel 2010
Bekijk bijlage test.xlsm

 

[edmoor]

Gebruik dit eens onder de End With:
tb.Fill.BackColor.RGB = RGB(255, 0, 0)

 

[bjornesto]

Beste

Dit werkt perfect om de code op te zoeken
de font moet nog gedaan worden in het wit

Nu zou ik nog graag hebben dat die achtergrond terug wit wordt zonder arcering bij de tweede knop.

heb u code daarvoor aangepast maar die arcering blijft.

heb ik bij die tweede onder end with gezet maar arcering blijft
tb.Fill.BackColor.RGB = RGB(255, 255, 255)

 

[Tent84]

Hoi bjornesto,

Misschien is er nog een andere manier?

Ik zou bij de eerste knop het volgende zetten na de End with:
tb.Select
Selection.ShapeRange.Fill.ForeColor.RGB = 255

Bij de tweede knop om ongedaan te maken:
tb.Select
Selection.ShapeRange.Fill.Visible = msoFalse

 

[bjornesto]

Tent

eerste tb select werkt niet

tweede tb select wel