Geselecteerde cel kleuren

[wieter]

Beste,
Met onderstaande code wordt de zoekcel gekleurd.
Maar bij een nieuwe zoekactie, blijft de cel van een eerdere zoekactie gekleurde, terwijl die terug Interior.ColorIndex = 0 zou moeten krijgen.
Ik krijg die actie niet geplaatst in de code.
Wil iemand me helpen?
Groetjes

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim zoekletter As String, Results As Range
    Dim c As Range, ans As Variant
    If KeyCode <> 13 Then Exit Sub
    zoekletter = UCase(TextBox1.Text & "*")
    With ActiveSheet.Columns("B:B")
        Set c = .Find(What:=zoekletter, LookIn:=xlValues, _
                      lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
                     [COLOR="RoyalBlue"] c.Interior.ColorIndex = 4[/COLOR]        If Not c Is Nothing Then
            c.Select
            TextBox1 = "": Exit Sub
        Else
            MsgBox TextBox1.Text & " niet gevonden."
        End If
    End With
End Sub

 

[Wigi]

Voeg dan bovenaan in de macro een regel toe die de hele kolom zonder kleur zet:

Columns(2).Interior.ColorIndex = 0

 

[wieter]

Bedankt Wim
Probleem opgelost

 

[stoks3]

Opmaak

Zou iemand mij kunnen helpen met een probleem?
Ik zou graag willen dat als ik in excel een cel of meerdere cellen selecteer, dat deze dan
een andere opmaak krijgen. Zodat het duidelijk is welke cel ik geselecteerd heb met mijn
cursor. Als het mogelijk is, dan graag zonder macro's, hierin ben ik namelijk niet bekend.

Mvg Harm