「Range.Find」測試白白寫着「必選對象」

Question

爲什麼我得到的錯誤，如果我運行這段代碼？：

Dim mitarbeiterStatus 
    Dim mitarbeiterCell As Variant 
    Set mitarbeiterCell = Nothing 
    Dim rowsinWorkflow As Integer 
    rowsinWorkflow = Worksheets("worksheet1").Range("A1").End(xlDown).Row 

    With Worksheets("worksheet1").Range("B2:B" & rowsinWorkflow) 
     Dim firstAddress 
     mitarbeiterCell = .Find(displayName, LookIn:=xlValues) 
     If Not mitarbeiterCell Is Nothing Then 'ERROR HERE 
      firstAddress = mitarbeiterCell.Address 
      Do 
      '..... 
      Set mitarbeiterCell = .FindNext(displayName) 
      Loop While Not c Is Nothing And mitarbeiterCell.Address <> firstAddress 

我試圖做喜歡這裏的對象是必需的方式：https://msdn.microsoft.com/de-de/library/office/ff839746.aspx

With Worksheets(1).Range("a1:a500") 
Set c = .Find(2, lookin:=xlValues) 
If Not c Is Nothing Then 
    firstAddress = c.Address 
    Do 
     c.Value = 5 
     Set c = .FindNext(c) 
    Loop While Not c Is Nothing And c.Address <> firstAddress 
End If 
End With 

Answer 1

改變這一行：

mitarbeiterCell = .Find(displayName, LookIn:=xlValues) 

要這樣：

Set mitarbeiterCell = .Find(displayName, LookIn:=xlValues)