Public Sub Doppelte_loeschen()
'################################################
'Code für ein allgemeines Modul
'Autor: Jürgen Hennekes
'################################################
Dim objDic As Object
Dim lngZ As Long
Dim lngLast As Long
Set objDic = CreateObject("Scripting.Dictionary")
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
For lngZ = lngLast To 2 Step -1
If objDic.exists(Cells(lngZ, 1).Value) = False Then
objDic(Cells(lngZ, 1).Value) = 0
Else
Cells(lngZ, 1).EntireRow.Delete
End If
Next
End Sub
|
||||||||||||||||||||||||||||||
