hab mein Problem in diesem Excel-File genau beschrieben:
https://www.herber.de/bbs/user/8455.xls
Vielen Dank für Eure Antworten!
Grüsse
Jürgen
Sub test1()
Dim zl, i, Name As Variant
zl = [A65536].End(xlUp).Row
For i = zl To 2 Step -1
If Cells(i + 1, 1) & Cells(i + 1, 2) = Cells(i, 1) & Cells(i, 2) Then
Rows(i).Delete
End If
Next
End Sub