habe noch ein (hoffentlich kleines) Problem kurz vor dem wochenende, folgendes Mokro löscht doppelte Zeilen, dabei steht das kriterium in der ersten Spalte (A), also wenn in Spalte A zweimal der selbe eintrag steht, wird eine Zeile gelöscht:
Dim zz As Long, rngLi As Range
For zz = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1
If Not IsError(Application.Match(Cells(zz, 1), _
Range(Cells(zz + 1, 1), Cells(Rows.Count, 1)), 0)) Then
If rngLi Is Nothing Then
Set rngLi = Rows(zz)
Else
Set rngLi = Union(rngLi, Rows(zz))
End If
End If
Next zz
If Not rngLi Is Nothing Then rngLi.Delete
Kann jemand das Makro so ändern, das in Spalte B gesucht wird? also wenn in Spalte B 2 mal der gleiche Eintrag steht soll die ganze Zeile gelöscht werden...
Im Voraus vielen Dank!
gruss
christian