Hi
das könnte so gehen
Sub test()
Dim rngFound As Range
Dim rngBereich As Range
Dim strSuche As String
Dim strNeu As String
strSuche = InputBox("was wird gesucht")
strNeu = InputBox("dieser Text wird eingetragen")
If strSuche = "" Then Exit Sub
Set rngBereich = Sheets("Tabelle1").Range("A1:H6") 'Tabellenname und Suchbereich anpassen
Set rngFound = rngBereich.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not rngFound Is Nothing Then
rngFound.Offset(1, 3).Value = strNeu
End If
Set rngFound = Nothing
Set rngBereich = Nothing
End Sub
in meinem Test wird der gesuchte Text aus der ersten Inputbox
in Tabelle1 in den Zellen A1 bis H6 gesucht
wird der Text gefunden, wird eine Zeile tiefer und 3 Spalten! weiter rechts
der Inhalt der zweiten Inputbox eingetragen
ich hoffe das entspricht deinen Vorstellungen
MfG Tom
|