Suchen und eingeben von Daten

Sub SucheUndEingabe()
Dim suchWert As String
Dim eingabeWert As String
Dim fndCell As Range
suchWert = InputBox("Geben Sie die Filialnummer ein:", _
"Suchwert Eingabe")
If suchWert = "" Then Exit Sub
Set fndCell = ActiveSheet.Columns(1).Find(what:=suchWert)
If fndCell Is Nothing Then
MsgBox suchWert & " wurde in Spalte A nicht gefunden!", vbCritical, "Suche erfolglos"
Else
eingabeWert = InputBox("Die Filiale " & suchWert & " wurde in Zeile " & fndCell.Address(0,   _
_
_
_
0) & " gefunden." & Chr(13) & Chr(13) & _
"Prüfen Sie die Daten anhand der Adresse!" & Chr(13) & Chr(13) & fndCell(, 1) & " " &  _
fndCell(, 3) & Chr(13) & fndCell(, 2) & " " & fndCell(, 3) & Chr(13) & fndCell(, 4) & _
Chr(13) & vbCrLf & "Bitte geben Sie den Wert für Spalte E ein!",  _
_
_
_
"Objektverwaltung Ponholz")
fndCell.Offset(, 4) = eingabeWert
End If
End Sub