使用With，Range和.Find时遇到vba error 91问题

我想在下面提到的代码中find包含值“USD”的单元格的地址。 尽pipe如此，系统抛出了一个错误91，说没有设置对象variables。 我发现91错误在线信息，但我仍然没有得到在哪里，如何设置正确的对象。 帮助表示赞赏。

谢谢

Sub searchAdress() Dim searchAdress As Range With Workbooks("Umrechnungskurse1.xlsm").Sheets("Tabelle1").Range("A2:S2") searchAdress = .Find("USD", LookIn:=xlValues) End With MsgBox searchAdress End Sub 

Answer 1

第一个问题是你的线路：
searchAdress = .Find("USD", LookIn:=xlValues)

应该 ：
Set searchAdress = .Find("USD", LookIn:=xlValues)
Set命令对于对象variables是必需的。

您的下一个问题是您的MsgBox将无法工作。 将该行更改为：
MsgBox searchAdress.Address