Tabelleninhalte sortieren und löschen
14.06.2004 10:55:10
Peter
ich habe eine Tabelle, die ich mit einer User-Form fülle. Anschließend rufe ich folgende "Routine" auf und sortiere die Tabelle neu und lösche doppelte Datenzeilen.
*****************
Sub Filtern()
With Worksheet("Auftraege").UsedRange
Worksheets("Auftraege").Activate
With ActiveSheet.UsedRange
.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Cells(1, .Columns.Count + 1), Unique:=True
.EntireColumn.Delete
End With
End With
End Sub
*****************
Leider werden nur Zeilen (Datensätze) gelöscht, die 100%ig übereinstimmen. Wenn nur ein Feld geändert ist, bleibt der Datensatz erhalten.
Ich möchte nun wissen, wie der Code heißt, wenn ich die "Duplizitätsprüfung" auf nur 1, 2 oder 3 Spalten begrenzen möchte, und alle anderen Einträge ignoriert werden sollen.
Es wäre Klasse, wenn mir jemand hier helfen kann!
Danke
Peter
Anzeige