.Find(What:=tb_Eingabeformular.Range("D12").Text
In dem Fall ist dann Value nicht mehr korrekt; es muss dann Text sein.
PS: Unsauber wäre es bei Value zu belassen und xlWhole in xlPart zu ändern - würde auch funktionieren, ist aber nicht korrekt.