Hallo Excelfreaks,
ich möchte gern, dass gleiche Zeilen in einer Tabelle gelöscht werden und nur 1 davon stehen bleibt.
Mit meinem Code löscht er allerdings bei 3 gleichen Zeilen immer nur 1 raus und nicht 2.
For Zeile = 1 To wsBezeichnungen.Cells(Rows.Count, 1).End(xlUp).Row
If wsBezeichnungen.Cells(Zeile, 1) = wsBezeichnungen.Cells(Zeile + 1, 1) _
And wsBezeichnungen.Cells(Zeile, 3) = wsBezeichnungen.Cells(Zeile + 1, 3) And _
wsBezeichnungen.Cells(Zeile, 4) = wsBezeichnungen.Cells(Zeile + 1, 4) Then
wsBezeichnungen.Rows(Zeile).Delete
End If
Next
Vielen Dank für eure Hilfe
Maik