Sub InputBox_suche()
Dim rngFound As Range
Dim strSuche As String
Dim strNeu As String
Dim strFirst As String
Dim wsBlatt As Worksheet
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
For Each wsBlatt In ThisWorkbook.Worksheets
Set rngFound = wsBlatt.Cells.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFound Is Nothing Then
strFirst = rngFound.Address
Do
rngFound.Offset(1, 0).Value = strNeu
Set rngFound = wsBlatt.Cells.FindNext(rngFound)
Loop While Not rngFound Is Nothing And rngFound.Address <> strFirst
End If
Set rngFound = Nothing
Next wsBlatt
End Sub