使用with，Range和.Find時出現vba錯誤91的問題

我想在下面提到的代碼中找到包含值「USD」的單元格的地址。儘管如此，系統拋出了一個錯誤91，表示沒有設置對象變量。我在錯誤91上發現了一些在線信息，但我仍然不知道在哪裏以及如何設置正確的對象。幫助表示讚賞。使用with，Range和.Find時出現vba錯誤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

來源

2014-11-06 chrnit

在哪一行上會出現錯誤？ – 2014-11-06 16:24:44

'.Find'繼承了上次使用的許多參數。你想要'XlPart'還是'xlWhole'？還有其他幾個，但這可能是最重要的。 – Jeeped 2014-11-06 16:28:28

您在'searchAdress'之前缺少'Set'' – 2014-11-06 16:29:19

的第一個問題是，你的行：
searchAdress = .Find("USD", LookIn:=xlValues)

應該是：
Set searchAdress = .Find("USD", LookIn:=xlValues)
的Set命令所需的對象變量。

您的下一個問題是您的MsgBox不起作用。將該行更改爲：
MsgBox searchAdress.Address

來源

2014-11-06 16:55:22

使用with，Range和.Find時出現vba錯誤91的問題

回答

相關問題