option explicit

Sagt immer in folgender Zeile Objekt erforderlich. was soll das?

Set C = .Find("x", LookIn:=xlValues)

Sub test()
Dim C$

With Worksheets(1).Range(Cells(100, 1), Cells(200, 1))
Set C = .Find("x", LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
Range("B" & Selection.Row).Value = "Mein Eintrag"
Range("A99").Value = Selection.Row - 100
Exit Sub
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
MsgBox "Suche beendet!"
End Sub

Gruß
Felix