Suchen und ersetzen Macro

Private Sub CommandButton7_Click()
Set frm1 = UserForm1
With frm1
Sheets("Sheet2").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox385, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.ComboBox1.Value = ActiveCell.Offset(0, 2).Value
.TextBox8.Value = ActiveCell.Offset(0, 3).Value
Exit Sub
fehler:
MsgBox "Für das Datum: " & _
.TextBox387 & " konnte kein Datensatz gefunden werden!"
End With
End Sub

Mit diesem Macro suche ich die Eingabe und kann mir diese auch anzeigen lassen! aber wie lautet das Macro das mir dann genau diesen Eintrag auch ändert?
Kann mir da jemand weiterhelfen?
Danke für eure Hilfe
MFG
raphael