Ich habe noch eine kleine Frage?
Was fehlt bei diesem Code ,wenn ich nicht nur das gefundene Wort löschen möchte sondern den ganzen Inhalt dieser Zeile löschen möchte wo dieses Wort gefunden wurde.
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Entrer le Nom et le prenom du client pour la recherche:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Effacer ce client?", _
Buttons:=vbYesNo + vbQuestion _
) = vbYes Then rng.ClearContents
Application.Goto rng, True
Application.Goto rng, True
If MsgBox( _
prompt:="Continuer la Recherche??", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Unload Me
Next wks
MsgBox prompt:="Il n'existe pas de (d'autre) client avec ce nom dans le programme!"
Unload Me
Danke im voraus
Gruss Lucien