Zoeker werkt niet

[mariken]

Met onderstaande code (in blad "artikelen") moet worden gezocht in C5 t/m C75. Ik heb de code van een ander werkblad geleend, waarbij de zoeker wel werkt.
Nu kan de zoeker steeds niets vinden, dus moet er toch iets niet goed zijn, maar wat? Iemand enig idee?
Mariken

Sub Zoeken()
Sheets("artikelen").Unprotect ("hansjekoosje")
Dim Found As Range, tempcell As Range, X As Variant
Range("C5:C" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone
X = InputBox("Zoekterm invullen." & vbCrLf & "Er wordt gezocht in de kolom 'artikelomschrijving'")
If X <> "" Then
Set Found = Columns(2).Find(X, , xlValues, xlPart)
If Found Is Nothing Then
    MsgBox X & "  niet gevonden!"
    Exit Sub
Else
    Application.GoTo Found.Offset(, -1), True
    Found.Interior.ColorIndex = 3

End If
If MsgBox("Verder zoeken?", vbYesNo) = vbYes Then
    Do
        Set tempcell = Columns(2).FindNext(After:=Found)
        If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then
            MsgBox "Niet(s) meer gevonden!"
            Exit Do
        End If
        Set Found = tempcell
        Range("C5:C" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone
        Application.GoTo Found.Offset(, -1), True
        Found.Interior.ColorIndex = 3

        If MsgBox("Verder zoeken?", vbYesNo) = vbNo Then Exit Do
    Loop
End If
Else: Exit Sub
End If
Sheets("artikelen").Protect ("hansjekoosje")
End Sub

 

[Ad Becude]

Zie de wijzigingen in de regels:

Set Found = Columns([COLOR="#FF0000"]3[/COLOR]).Find(X, , xlValues, xlPart)

Set tempcell = Columns([COLOR="#FF0000"]3[/COLOR]).FindNext(After:=Found)

Kolom C is immers de derde kolom.

 

[mariken]

Weer heel veel dank voor de snelle reactie, top:thumb: