brauch etwas Hilfe:
Ich möchte innerhalb einer Tabelle jede Zeile auf doppelte Werte prüfen:
Wenn in Zeile 1 Spalten A-D = Zeile 2 Spalten A-D; dann sollen die Werte in Spalte E addiert werden und eine Linie gelöscht werden usw.
Sub t()
Dim iZeile As Long, iiZeile As Long, iSpalte As Byte
Dim bMatch As Boolean
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = iZeile - 1 To 1 Step -1
bMatch = True
For iSpalte = 1 To 4
If Cells(iZeile, iSpalte) Cells(iiZeile, iSpalte) Then
bMatch = False
Exit For
End If
Next iSpalte
If bMatch Then
Cells(iiZeile, 5) = Cells(iiZeile, 5) + Cells(iZeile, 5)
Rows(iZeile).EntireRow.Delete
End If
Next iiZeile
Next iZeile
End Sub