Question

我想找到包含值＆＃34; USD＆＃34;的单元格的地址。在下面提到的代码中。但是，系统抛出一个错误91，表示尚未设置对象变量。我在错误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命令。

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

使用With，Range和.Find时遇到vba错误91的问题

1 个答案: