lettertype veranderd van kleur moet veranderd worden in opvulling van kleur

[bjornesto]

Beste

ik heb een code gemaakt

Eerst zoekt hij de waarde van een tekstbox en vervolgens veranderd hij die kleur als hij de tekst vind in het rood.--> dit werkt perfect.
Omdat ik verschillende kleuren al in die tekstboxen staan wil ik echter alleen nu de achtergrond veranderen van kleur en niet het lettertype, waarom doe ik dat omdat als ik de 2de code gebruik die reset alle kleuren van de lettertypes en dat is niet de bedoeling

1ste code zoekt de waarde op in de tekstbox en zet het in rood en vet

Dim FindWhat As String, tb As TextBox
  On Error Resume Next
  FindWhat = InputBox("Find what?")
  If FindWhat = "" Then Exit Sub
  For Each tb In ActiveSheet.TextBoxes
      l = InStr(tb.Characters.Text, FindWhat)
      If l > 0 Then
         With tb.Characters(Start:=l, Length:=Len(FindWhat)).Font
         .ColorIndex = 3
         .Bold = True
         End With
      End If
  Next
End Sub

Private Sub CommandButton1_Click()

2de code reset echter alle kleuropmaak

Private Sub CommandButton2_Click()
Dim FindWhat As String, tb As TextBox
  On Error Resume Next
  FindWhat = InputBox("Find what?")
  For Each tb In ActiveSheet.TextBoxes
         With tb.Characters.Font
         .ColorIndex = 0
         .Bold = False
         End With
  Next
End Sub

Hoe kan ik dit oplossen

 

[spaarie]

Misschien te simpel gedacht, maar wijzig .Font naar .BackColor

 

[bjornesto]

Nee dit helpt niet ben nog verder aan het zoeken

 

[Cobbe]

Heb je nu nog altijd geen voorbeeldbestand klaar?

 

[bjornesto]

Hieronder een voorbeeldbestand

De 1ste knop klikken en dan gewoon een cijfer intikken. Wel letten op het punt anders vindt hij dat niet.

Dan zal je zien dat die opmaak veranderd in rood en vet.

Echter zou enkel de achtergrond moeten veranderen en niet de opmaak van het lettertype.

Bij de tweede knop zou die achtergrondopmaak ongedaan moeten gemaakt worden.

Bekijk bijlage Map1.xls