Sub InputBox_suche()
Dim rngFound As Range
Dim rngBereich As Range
Dim strSuche As String
Dim strNeu As String
strSuche = InputBox("2 Pol DC - Auto", , "2 Pol DC - Auto")
strNeu = InputBox("M37_Ltg_180_7A_u_180_8A", , "M37_Ltg_180_7A_u_180_8A")
If strSuche = "" Then Exit Sub
Set rngBereich = Tabelle3.Range("A1:J200")
Set rngFound = rngBereich.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFound Is Nothing Then
rngFound.Offset(1, 0).Value = strNeu
End If
Set rngFound = Nothing
Set rngBereich = Nothing
End Sub