habe gestern schon mal gepostet. Hajo wollte den code von mir. den habe ich mir aber aus dem archiv gezogen und wollte ihn umschreiben. kriege es aber nicht hin, deswegen hier mal der code:
Private Sub CommandButton1_Click()
Dim lngletzte As Long
Dim x As Long
Dim y As Long
Dim a As Range
Dim b As Range
Dim strsuchwert1 As String
Dim strsuchwert2 As String
With Worksheets("Tabelle3")
On Error Resume Next
lngletzte = .Range("A65536").End(xlUp).Row
For x = lngletzte To 1 Step -1
strsuchwert1 = .Range("a" + x).Value
strsuchwert2 = .Range("b" + x).Value
y = x
Do
Set a = .Range("A1:A" & y - 1).Find(strsuchwert1)
Set b = .Range("B1:B" & y - 1).Find(strsuchwert2)
If a Is Nothing Or b Is Nothing Then
Exit Do
ElseIf a.Row <> b.Row Then
Exit Do
Else
Rows(a.Row).Delete shift:=xlUp
y = y - 1
End If
Loop
Next
End With
End Sub