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