Doppelte Einträge löschen (schreibweise berücksich

Sub Duplikate_Loeschen_Filter()
Dim xlWS As Worksheet
Dim xlRange As Range
Dim intColsCnt As Integer
Dim lngRowsCnt As Long
Dim lngRow As Long
Dim lngRowsDel As Long
Application.ScreenUpdating = False
Set xlWS = ActiveSheet
With xlWS
intColsCnt = .UsedRange.Columns.Count
lngRowsCnt = .UsedRange.Rows.Count
Set xlRange = _
.Range(.Cells(1, 1), .Cells(lngRowsCnt, intColsCnt))
End With
xlRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
lngRowsDel = 0
For lngRow = lngRowsCnt To 2 Step -1
With xlWS
If .Rows(lngRow).Hidden = True Then
.Rows(lngRow).EntireRow.Delete
lngRowsDel = lngRowsDel + 1
End If
End With
Next lngRow
If xlWS.FilterMode = True Then
xlWS.ShowAllData
End If
Application.ScreenUpdating = True
MsgBox "Es wurden " & lngRowsDel & " doppelte " & _
"Datensätze gelöscht!", vbOKOnly + vbInformation, _
Title:="Doppelte Datensätze löschen"
Set xlRange = Nothing
Set xlWS = Nothing
End Sub