Doppelte Werte entfernen

Sub Kopieren() 'Bereich kopieren Sheets("Daten").Range("L24:P24").Copy 'einfügen in erste freie Zeile in Ausgabe Sheets("Tabelle5").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marko,
so habe ich es gemacht:
_ Makrorekorder starten, Name "Duplikate_entfernen" eingegeben
_ gesamte Bereich F:I markieren
_ Menü "Daten", "Duplikate entfernen"
_ Prüfen, dass alle 4 Saplten wahrgenommen werden, dann ok
_ Makrorekoder aus
_ Makrorekorder starten, Name "Sortieren" eingegeben
_ gesamte Bereich F:I markieren
_ Menü "Start", "Sortieren und Filtern", "Benutzerdefinierte sortieren"
_ die 4 Spalte einrichten, ok
_ Makrorekorder aus
(getrennt, weil sonst zu viel in einem Block)
Der Code sieht so aus (na, ok, ein Bischen bereinigt, aber nichts hinzugefügt):


Sub Duplikate_entfernen()
ActiveSheet.Range("$F$1:$I$54").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo
End Sub
Sub Sortieren()
Selection.CurrentRegion.Select
With ActiveWorkbook.Worksheets("Daten").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("F1:F50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("G1:G50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("H1:H50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("I1:I50"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("F1:I50")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

(in der Unterschied der ausgewählte Bereich F1:I54 zu F1:I50 siehst Du, dass 4 Zeilen Duplikat waren und gelöscht wurden)
Dann habe ich anschliessend einen Beitrag verfasst und alle Schritte genau beschrieben (ok, das musst Du nicht machen)
Ach so auch vergessen: ich habe zuerst Testdaten aufgebaut, weil Du dir die Mühe erspart hast, eine Datei zu posten.
Auf einer Rückmeldung freut man sich immer.
VG
Yal

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

178 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelte Werte entfernen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

178 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread