Doppelte Datensätze löschen
21.06.2005 15:23:45
Schatti
ich möchte Doppelte Datensätze in einer bestimmten Tabelle löschen. Nur das Problem ist das Ecxel die Dazensätze die ein sverweis haben nicht löscht..
vielleicht hat ja jemand von euch eine idee!
oder gibt es eine möglichkeit die daten in der tabelle erst zu filtern und dann in eine neue Tabelle zu kopieren?
----------------------------------------------------------
Das hier funktioniert ganz gut, nur eben nicht bei sverweis!!
-----------------------
Private Sub CommandButton1_Click()
Dim wksData As Worksheet
Dim rngData As Range
Dim nColsCnt As Integer
Dim nRowsCnt As Long
Dim nRow As Long
Dim nRowsDel As Long
Application.ScreenUpdating = False
Set wksData = ActiveSheet
With wksData
nColsCnt = .UsedRange.Columns.Count
nRowsCnt = .UsedRange.Rows.Count
Set rngData = _
.Range(.Cells(1, 1), .Cells(nRowsCnt, nColsCnt))
End With
rngData.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
nRowsDel = 0
For nRow = nRowsCnt To 2 Step -1
With wksData
If .Rows(nRow).Hidden = True Then
.Rows(nRow).EntireRow.Delete
nRowsDel = nRowsDel + 1
End If
End With
Next nRow
If wksData.FilterMode = True Then
wksData.ShowAllData
End If
Application.ScreenUpdating = True
MsgBox "Es wurden " & nRowsDel & " doppelte " & _
"Datensätze gelöscht!", vbOKOnly + vbInformation, _
Title:="Doppelte Datensätze löschen"
Set rngData = Nothing
Set wksData = Nothing
End Sub
------------------------------------------------
DAnke Gruß
Anzeige