Sub DoppelteZellenFindenUndRestLöschen() ‘ ‘ DoppelteZellenFindenUndRestLöschen Makro ‘ Dim i, j ‘ j = Cells.Rows.Count Cells(Cells.Rows.Count, 2).End(xlUp).Select For i = j To 2 Step -1 If Not (Selection.Value = Cells(Selection.Row, 3).Value) Then Rows(Selection.Row).Select Selection.Delete Shift:=xlUp End If Cells(Selection.Row – 1, 2).Select Next i End Sub
