Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Doppelte finden und ganze Zeile löschen

Doppelte finden und ganze Zeile löschen
04.04.2005 15:40:56
Werner
Hallo!
Sicher wurde mein Problem irgendwo schon behandelt. Leider finde ich aber absolut nichts. Ich habe wirklich viel gesucht.
Ich habe also eine Liste mit Daten in den Spalten C bis G.
In Spalte D stehen Werte, die auch doppelt vorkommen können.
Ich möchte die in Spalte D doppelt vorkommenden Werte finden und die gesamte Zeile des doppelten Wertes löschen, so das später in Spalte D jeder Wert nur einmal vorhanden ist.
Gibt's da vielleicht eine Lösung?
Vielen Dank schon mal für die Hilfe!
Viele Grüße
Werner
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte finden und ganze Zeile löschen
04.04.2005 15:53:06
u_
Hallo,

Sub doppelte_weg()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("D65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("D:D"), Cells(i, 4)) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Anzeige
AW: Doppelte finden und ganze Zeile löschen
05.04.2005 08:35:39
Werner
Absolut genial!!!
Vielen Dank!
Dieses Forum (und vor allem die Leute darin) ist echt klasse!
Gruß
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Zeilen in Excel Löschen: So Geht's


Schritt-für-Schritt-Anleitung

Um doppelte Werte in Excel zu finden und die gesamte Zeile zu löschen, kannst Du den folgenden VBA-Code verwenden. Dieser Code identifiziert die doppelten Werte in Spalte D und entfernt die entsprechenden Zeilen.

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden Code in das Modul:
Sub doppelte_weg()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("D65536").End(xlUp).Row To 2 Step -1
        If Application.WorksheetFunction.CountIf(Range("D:D"), Cells(i, 4)) > 1 Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu Excel.
  2. Drücke ALT + F8, wähle doppelte_weg aus und klicke auf Ausführen.

Durch diesen Prozess werden alle doppelten Werte in Spalte D gefunden und die gesamten Zeilen gelöscht. Dies ist eine effektive Methode, um doppelte Zeilen in Excel zu löschen.


Häufige Fehler und Lösungen

  • Fehler: Der Code funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den Code korrekt in ein Modul eingefügt hast und dass Du die richtigen Berechtigungen in Excel hast.
  • Fehler: Die Zeilen werden nicht gelöscht.

    • Lösung: Überprüfe, ob die Spalte D tatsächlich doppelte Werte enthält. Manchmal können Leerzeichen oder unterschiedliche Formate die Suche nach Duplikaten beeinflussen.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die integrierten Excel-Funktionen nutzen:

  1. Wähle den Bereich aus, in dem Du die Duplikate entfernen möchtest.
  2. Gehe zu Daten > Duplikate entfernen.
  3. Wähle die Spalte aus (in diesem Fall D) und klicke auf OK.

Diese Methode entfernt die doppelten Werte in der ausgewählten Spalte, jedoch ohne die gesamte Zeile zu löschen.


Praktische Beispiele

Angenommen, Du hast die folgende Liste in Excel:

C D E
Wert1 A Text1
Wert2 B Text2
Wert3 A Text3
Wert4 C Text4

Nach Ausführung des VBA-Codes würden die Zeilen mit den doppelten Werten (z.B. "A") gelöscht werden, und die Tabelle würde so aussehen:

C D E
Wert1 A Text1
Wert4 C Text4

Tipps für Profis

  • Du kannst den VBA-Code anpassen, um zusätzliche Bedingungen hinzuzufügen, z.B. nur Zeilen zu löschen, wenn ein bestimmter Wert in einer anderen Spalte vorhanden ist.
  • Experimentiere mit der Application.ScreenUpdating-Eigenschaft, um die Performance des Codes zu verbessern, besonders bei großen Datensätzen.
  • Nutze Excel VBA für komplexere Aufgaben wie das Suchen und Löschen von doppelten Werten, wenn Du regelmäßig mit großen Datenmengen arbeitest.

FAQ: Häufige Fragen

1. Wie kann ich doppelte Werte in Excel ohne VBA entfernen?
Du kannst die Funktion Duplikate entfernen unter dem Menüpunkt Daten verwenden, um Duplikate in einer bestimmten Spalte zu löschen.

2. Was passiert, wenn ich mehrere Spalten habe und nur in einer Spalte nach Duplikaten suchen möchte?
Du kannst den VBA-Code so anpassen, dass er nur die spezifische Spalte durchsucht, indem Du die Range entsprechend änderst.

3. Gibt es eine Möglichkeit, die gelöschten Zeilen wiederherzustellen?
Wenn Du die Zeilen gelöscht hast, gibt es keine eingebaute Funktion zum Wiederherstellen. Du solltest jedoch regelmäßig Sicherungen Deiner Daten erstellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige