Excel VBA - 範圍不返回

Question

以下代碼將查找包含5/7 binnen 4h的單元格，並且當它找到該單元格時，它會將同一行上的單元格I的值複製到不同的單元格。現在有幾種情況下，無法找到這個文本，我得到一個錯誤。我怎麼能處理這個錯誤？

Dim FoundRange As Range 
Set FoundRange = Cells.Find("5/7 binnen 4h") 
Range("I" & EmptyCell + 2).Value = Cells(FoundRange.Row, 9).Value 

Answer 1

Dim FoundRange As Range 
Set FoundRange = Cells.Find("5/7 binnen 4h") 
If Not FoundRange Is Nothing Then 
    Range("I" & EmptyCell + 2).Value = Cells(FoundRange.Row, 9).Value 
Else 
    'you might want to do something if it is not found (msgbox...) 
End If