Re: doppelte löschen ohne Filter
15.04.2002 15:14:55
Hubert
Ist ins unreine geschrieben, der Sinn sollte aber klar werden. Ich hoffe dir hilft das
Sub löschen()
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Tabelle1")
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
End If
i = i + 1
Wend
End Sub