Sub sbDel5()
Dim liRow As Integer
For liRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & liRow).Value = Range("B" & liRow).Value And _
Range("A" & liRow).Value = Range("C" & liRow).Value And _
Range("A" & liRow).Value = Range("D" & liRow).Value And _
Range("A" & liRow).Value = Range("E" & liRow).Value Then
Rows(liRow).Delete Shift:=xlUp
End If
Next
End Sub
Sub sbDel()
Dim liRow As Integer, liRow1 As Integer
Dim lstrFeld1 As String, lstrFeld2 As String, liCol As Integer
For liRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
For liCol = 1 To 5
lstrFeld1 = lstrFeld1 & Cells(liRow, liCol)
Next
For liRow1 = Cells(Rows.Count, 1).End(xlUp).Row - 1 To 2 Step -1
For liCol = 1 To 5
lstrFeld2 = lstrFeld2 & Cells(liRow1, liCol)
Next
If lstrFeld1 = lstrFeld2 And _
liRow liRow1 Then
Rows(liRow1).Delete Shift:=xlUp
End If
lstrFeld2 = ""
Next
lstrFeld1 = ""
Next
End Sub