Vba Daten finden

Sub DatenLöschen()
Dim finden As Range
Set finden = Range("Tabelle3").Find(what:=Tabelle1.Range("A6").Value, _lookat:=xlWhole)
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden"
Else
Tabelle4.Range("F1").Value = Tabelle4.Cells(Ergebnis.Row, 2).Value
End If
End Sub