Excel VBA - Range ничего не возвращает

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