Doppelte Einträge löschen (schreibweise berücksich
15.09.2005 17:24:23
Selma
ich habe in Spalte A ab Zeile 8 meine Daten stehen.
Ich habe versucht mit disem Makro die doppelte Einträge zu löschen.
Zur Zeit wird in diesem Makro die Klein- und Großschreibung nicht berücksichtigt.
Was muss ich ändern, damit die Klein- und Großschreibung berücksichtigt wird und das Makro in Spalte A ab Zeile 8 startet und bis letzte gefüllte Zelle in Spalte A läuft?
Option Explicit
Public
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
Vielen Dank im Voraus....
Liebe Grüße
SELMA
Anzeige