Function 运行时错误91对象变量或未设置块变量

嗨，谢谢你复习我的问题。我声明了一个范围变量，并使用它搜索字符串“filmtofind=searchrange.Find（what:=filmname）”&它失败，出现运行时错误 运行时错误“91”： 对象变量或未设置块变量 但是，我可以使用声明的范围搜索相同的范围

---

filmtofind=Range（“b2:b15”）.Find（what:=filmname）&可以找到一个变量。有人能指出错误吗？

您正在输入的影片不在列表中，请尝试以下错误检查：

Run-time error '91':

Object variable or With block variable not set

Sub findfilmnameusingeventhandler()

Sheet1.Activate

Dim searchrange As Range
Dim filmname As String
Dim releasedate As Integer
Dim filmtofind As String

Set searchrange = Range("b3", Range("b2").End(xlDown))
filmname = InputBox("Type the movie")
filmtofind = searchrange.Find(what:=filmname)

'filmtofind = Range("b2:b15").Find(what:=filmname)

MsgBox filmtofind & "  is the movie "

End Sub`

Sub something()

Dim searchrange As Range
Dim filmname As String
Dim releasedate As Integer
Dim filmtofind As String

Set searchrange = Range("B3", Range("B2").End(xlDown))
filmname = InputBox("Type the movie")
If WorksheetFunction.CountIf(searchrange, filmname) > 0 Then
    filmtofind = searchrange.Find(what:=filmname)
Else
    filmtofind = "Film not found!"
End If

'filmtofind = Range("b2:b15").Find(what:=filmname)

MsgBox filmtofind & "  is the movie "

End Sub