Sub test()
Dim rngFound As Range
Dim rngBereich As Range
Dim strSuche As String
Dim strNeu As String
strSuche = InputBox("was wird gesucht")
strNeu = InputBox("dieser Text wird eingetragen")
If strSuche = "" Then Exit Sub
Set rngBereich = Sheets("Tabelle1").Range("A1:H6")
Set rngFound = rngBereich.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFound Is Nothing Then
rngFound.Offset(1, 3).Value = strNeu
End If
Set rngFound = Nothing
Set rngBereich = Nothing
End Sub