Office: Typen unvertäglich

Ich versuche in meiner Tabelle ein Eingabeformular zu erstellen, bei dem ich in D13 einen "Key" eingebe, nach dem dann in der Tabelle gesucht wird und dann in den passenden Tabellen gespeichert wird.
Ich möchte die Zeile in der der Wert von D13 steht etwa wie unten. Mir sagt der die Typen (Row) sind unverträglich.
Was muss ich verändern damit die Datenbank richtig befüllt wied?
Der TeilCode:
Dim Zeile As Range
Set Zeile = Range("A:A").Find(What:=Range("D13").Value, LookIn:=xlValues, lookat:=xlWhole).Row


With tb_Eingabeformular

'Datenbank befüllen
tbl.DataBodyRange(Zeile, 17).Value = .Range("H17").Vlaue

 

Du möchtest auf die Variable ein Zahl (Zeile) schreiben. Die Variable ist als Range definiert.