VBA suche/finden/eintragen

Sub SuchespalteundzeileUndEingabe1()
Dim suchWert As String
Dim eingabeWert As String
Dim fndCell As Range
Dim findSpalte As Range
suchWert = InputBox("Geben Sie einen Wert 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
spaltenWert = InputBox("Wert " & suchWert & " wurde in Zeile " & fndCell.Address(0, 0) & "  _
gefunden." & "Bitte geben Sie die Spalte für den Wert an!", "Test1")
eingabeWert = InputBox(vbCrLf & "Bitte geben Sie den Wert für die Zelle ein!", "Test2")
ArrSpalten = spaltenWert
fndCell.Offset = eingabeWert
End If
End Sub