Duplikate entfernen und Werte gleichzeitig sortieren in Excel
Schritt-für-Schritt-Anleitung
Um Duplikate in Excel zu entfernen und gleichzeitig die Werte zu sortieren, kannst Du den folgenden VBA-Code verwenden. Dieser Code kopiert die Daten aus einer Tabelle, entfernt Duplikate, sortiert die Werte und fügt sie in eine zweite Tabelle ein.
- Öffne Excel und drücke
ALT + F11
, um den VBA-Editor zu öffnen.
- Füge ein neues Modul ein (
Einfügen
> Modul
).
- Kopiere den folgenden Code in das Modul:
Public Sub DuplikateEntfernen()
Dim loLetzte As Long
Dim loLetzte1 As Long
Application.ScreenUpdating = False
' Daten kopieren
With Sheets("tbl_UAE01")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range(.Cells(2, 2), .Cells(loLetzte, 2)).Copy _
Sheets("tbl_test3").Range("B1")
End With
' Duplikate entfernen
With Sheets("tbl_test3")
.Range("B:B").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte1 = .Cells(.Rows.Count, 2).End(xlUp).Row
' Sortierung durchführen
.Range("B1:B" & loLetzte1).Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlNo
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Führe das Makro aus (drücke
ALT + F8
, wähle DuplikateEntfernen
und klicke auf Ausführen
).
Häufige Fehler und Lösungen
-
Fehlermeldung: "Objekt erforderlich"
- Diese Fehlermeldung tritt häufig auf, wenn die Referenz auf das Arbeitsblatt nicht korrekt ist. Achte darauf, dass die Blattnamen in Deinem Code mit den tatsächlichen Namen in Deiner Arbeitsmappe übereinstimmen.
-
Duplikate werden nicht entfernt
- Stelle sicher, dass die Spalte, aus der Du die Duplikate entfernen möchtest, tatsächlich Werte enthält und dass Du die richtige Spalte im Code angegeben hast.
-
Sortierung funktioniert nicht
- Überprüfe, ob die Daten in der Zieltabelle korrekt kopiert wurden. Die Sortierung funktioniert nur, wenn die Zellen nicht leer sind.
Alternative Methoden
Falls Du keine VBA-Lösungen nutzen möchtest, kannst Du auch die integrierte Funktion in Excel verwenden:
- Markiere die Spalte, in der Du Duplikate entfernen möchtest.
- Gehe zu
Daten
> Duplikate entfernen
.
- Wähle die Spalte aus und klicke auf
OK
.
- Zum Sortieren der Werte kannst Du die Spalte markieren und auf
Daten
> Sortieren
klicken.
Diese Methode ist einfach und benötigt keine Programmierkenntnisse.
Praktische Beispiele
Beispiel 1: Duplikate in einer Liste entfernen und sortieren
Angenommen, Du hast eine Liste von Produkten in tbl_UAE01
, Spalte B:
B |
Apfel |
Banane |
Apfel |
Orange |
Banane |
Nach Ausführung des Makros wird die Liste in tbl_test3
so aussehen:
Die Liste ist nun duplikatfrei und kann nach Belieben sortiert werden.
Tipps für Profis
-
Array-Methoden nutzen: Du kannst auch Arrays verwenden, um die Leistung zu verbessern, wenn Du mit großen Datenmengen arbeitest. Das Entfernen von Duplikaten und das Sortieren kann im Array schneller erfolgen.
-
Fehlerbehandlung einbauen: Überlege, Fehlerbehandlungsroutinen in Deinen VBA-Code einzubauen, um unerwartete Fehler abzufangen.
-
Benutzerdefinierte Formate: Wenn Du die Werte transponieren möchtest, achte darauf, die Formatierung korrekt zu kopieren.
FAQ: Häufige Fragen
1. Wie entferne ich Duplikate in Excel ohne VBA?
Du kannst die Funktion Duplikate entfernen
unter dem Tab Daten
nutzen.
2. Was mache ich, wenn die Sortierung nicht funktioniert?
Überprüfe die Daten auf leere Zellen und stelle sicher, dass die Werte korrekt kopiert wurden.
3. Kann ich mehrere Spalten auf einmal auf Duplikate prüfen?
Ja, beim Duplikate entfernen kannst Du mehrere Spalten auswählen, um eine umfassendere Überprüfung durchzuführen.