Mehrere Spalten auf doppelte Einträge filtern
31.01.2007 14:17:16
Alex
bräuchte wieder mal die Hilfe von VBA-Freunden. In meiner Tabelle hab ich ab Spalte 2 eine Übersicht über Land, Region, Kunden in je einer Spalte.
Ich möchte jetzt pro Spalte alle doppelten Einträge rausfiltern. Habe versucht, dies mit einer Schleife um meine AdvancedFilter zu machen, aber da lauf ich immer auf Fehler 1004. Weiß nicht mehr weiter und die Postings im Netz sind immer nur für eine Spalte. Kann mir jmd helfen?
Hier noch mein Code (Kopiert und abgewandelt):
Public
Sub FilterDuplicates()
Dim wkbData As Workbook
Dim wksData As Worksheet
Dim wksDataNew As Worksheet
Dim rngData As Range
Dim iCol As Integer
Dim nRowsCnt As Long
Application.ScreenUpdating = False
Set wkbData = ActiveWorkbook
Set wksData = wkbData.ActiveSheet
Set wksDataNew = Sheets(2)
For iCol = 2 To 4
With wksData
nColsCnt = .UsedRange.Columns.Count
nRowsCnt = .UsedRange.Rows.Count
Set rngData = _
.Range(.Cells(1, 2), .Cells(nRowsCnt, 2))
End With
rngData.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=wksDataNew.Range(Cells(1, iCol)), Unique:=True
Application.ScreenUpdating = True
Next iCol
Set rngData = Nothing
Set wksDataNew = Nothing
Set wksData = Nothing
End Sub
Anzeige