mit Spezialfilter bin ich nicht weiter gekommen. Kann aber auch daran liegen, dass ich mich nicht so gut damit auskenne.
Frank
Sub doppelte()
Dim j As Integer
Dim lrow As Integer
Dim letzteZeile
letzteZeile = Range("A500").End(xlUp).Row ' spalte A muss Artikelnummer haben
Range("A2:J" & letzteZeile).Select
'erst sortieren nach Artikel Spalte A
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'dann löschen
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For j = lrow To 2 Step -1
If Cells(j, 1) = Cells(j - 1, 1) Then
Rows(j).Delete
End If
Next j
Range("a1").Select
End Sub
gruss geri