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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen