Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Spalten auf doppelte Einträge filtern

Mehrere Spalten auf doppelte Einträge filtern
31.01.2007 14:17:16
Alex
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Spalten auf doppelte Einträge filtern
04.02.2007 23:27:15
Gerd
Hallo Alex,
probier mal.

Sub FilterDuplicates()
Dim wkbData As Workbook, wksData As Worksheet
Dim wksDataNew As Worksheet, rngData As Range
Dim nColsCnt As Integer, nRowsCnt As Long
Application.ScreenUpdating = False
Set wkbData = ActiveWorkbook
Set wksData = wkbData.ActiveSheet
Set wksDataNew = wkbData.Sheets(2)
If wksData.Name = wksDataNew.Name Then Exit Sub
With wksData
nColsCnt = .UsedRange.Columns.Count
nRowsCnt = .UsedRange.Rows.Count
Set rngData = .Range(.Cells(1, 2), .Cells(nRowsCnt, 4))
End With
rngData.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=wksDataNew.Cells(1, 2), Unique:=True
Application.ScreenUpdating = True
End Sub

Gruß
Gerd
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige