Hallo
Ich habe folgenden Code
Dim wks1 As Worksheet
Dim varSuchen, rngSuchen As Range
varSuchen = InputBox("Noter le nom du Membre s.v.p.", "chercher et effacer")
If varSuchen = "" Then Exit Sub
Set wks1 = Worksheets("Membres")
Set rngSuchen = wks1.Columns(2).Find(what:=varSuchen, LookIn:=xlValues, lookat:=xlWhole)
If rngSuchen Is Nothing Then
MsgBox varSuchen & " Ce nom n'existe pas!"
Else
If MsgBox("Etes vous sur, oder Annuler", vbYesNo) = vbYes Then
With wks1
rngSuchen.EntireRow.Delete shift:=xlShiftUp
End With
Else
Exit Sub
End If
End If
Ich möchte dass Excel in Spalte 2 den Vornamen und in Spalte 3 den Nachnamen sucht
da es ja z.b. viele Mullers gibt .
Momentan sucht er nur in Spalte 2
Vielen Dank