ich hofe ihr könnt mir weiterhelfen.
Ich will in Spalte A nach einem bestimmten Wort suchen. Wenn es gefunden wurde, soll eine Inputbox erscheinen in der ich das "neue" Wort eingebenn kann und das gefundene überschrieben wird.
Vielen Dank im Voraus
Option Explicit
Sub Suchen()
Dim Rafound As Range
Set Rafound = Columns(1).Find("18", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
Rafound = InputBox("Bitte Wert eingeben!!")
End If
End Sub