Ich habe folgenden Code zum Suchen von Kundennamen gesucht und gefunden.
Private Sub CommandButton27_Click()
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:="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
Nun möchte ich die Suche erweitern und zwar folgendermassen:
Namen suchen und mit Bestätigung löschen. Nur den Inhalt nicht die Zeile.
Vielen Dank im voraus Gruss