brauche nochmal eure Hilfe, wie kann ich bei nachstehendem code bewirken, dass er nicht nur eine spalte nach gleichen werten absucht sondern noch eine zweite. die erste soll nämlich der nachname sein der zweite der vorname. nur wenn beide zellen in den spalten gleich sind soll der eintrag gelöscht werden....
Für eure Hilfe schon an dieser Stelle Danke.
Private Sub Doppelt_Click()
i = 1
Do Until Cells(i, 1) = ""
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
Columns("a:b").Select
Selection.Sort Key1:=Cells(i, 1), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Cells(i, 1).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
i = i + 1
Loop
End Sub