Re: doppelte löschen ohne Filter
15.04.2002 15:42:37
Hubert
Ja, Veit, hab's ausprobiert und jetzt tut der überarbeitete Code das was du möchtest. Wenn er einen gleichen Eintrag gefunden hat zählt er i wieder um eins zurück und schaut an der gleichen Stelle noch mal nach ob da noch mehr doppelte Einträge sind. Um es komplett zu machen, musst du natürlich die Spalte vor dem Aufruf des Skripts aufsteigend sortieren lassen um alle mehrfach gelisteten Einträge hintereinander stehen zu haben.
Sub löschen()
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Sheet1")
i = 1
While Not IsEmpty(wks.Cells(i, 1))
If wks.Cells(i, 1) = wks.Cells(i + 1, 1) Then
wks.Cells(i + 1, 1).Delete shift:=xlUp
i = i - 1
End If
i = i + 1
Wend
End Sub