Zeile löschen wenn zwei Inhalte gleich

Forumthread: Zeile löschen wenn zwei Inhalte gleich

19.05.2021 21:34:10

Mikey

Hallo Experten,
ich stehe erneut vor einer Herausforderung, aber habe nicht mal ansatzweise eine Lösung dafür.
Ich möchte eine Tabelle mit enorm vielen Zeilen aussortieren. Also doppelte Zeilen löschen.
Dazu brauche ich eine Prüfung ob in den Zeilen, zwei Werte identisch sind.
Also quasi ist der Inhalt von Zeile 1 in den Spalten C und F identisch zu irgendeiner anderen Zeile.
Ich bitte um Hilfe.
Wenn möglich mit einer kurzen Erklärung dazu, ich möchte VBA sicher erlernen und verstehen was ich dort Programmiere.
Vielen Dank vorab und Grüße MikeY

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile löschen wenn zwei Inhalte gleich

19.05.2021 21:50:05

{Boris}

Hi,
Nimm eine leere Spalte - z. B. Spalte Y.
Schreibe in Y1:
=C1&#&F1
In Z1 schreibst Du:
=ZÄHLENWENN($Y1:Y1;Y1)
Jetzt beide Formeln entlang Deiner Daten runterkopieren.
Anschließend Spalte Z nach größer als 1 filtern.
Damit hast Du dann alle doppelten bzw. mehrfachen - AUSSER den ersten Treffer.
Diese Zeilen kannst Du dann löschen.
VG Boris

AW: Zeile löschen wenn zwei Inhalte gleich

20.05.2021 07:54:46

{Boris}

AW: Zeile löschen wenn zwei Inhalte gleich

20.05.2021 08:54:40

GerdL

Moin! Oder:


=WENN(ZÄHLENWENNS($C$1:$C1;$C1;$F$1:$F1;$F1)>1;0;ZEILE())

Diese eine Formel in eine leere Spalte kopieren u. nach unten ziehen; danach "Duplikate löschen" (Nuller);anschließend die Hilfsspalte wieder löschen.
Gruß Gerd

AW: Zeile löschen wenn zwei Inhalte gleich

20.05.2021 14:54:42

Mikey

Hallo Zusammen,
erstmal vielen Dank für den Ansatz.
Hätte noch jemand einen Ansatz für eine VBA Lösung ?
Ich rede so von ca. 40.000 Zeilen...
Und das soll kein einmaliger Aufwand sondern ein sich wiederholender Vorgang werden.
Vielen Dank vorab.
Grüße MikeY

der Makro-recorder sagt...

20.05.2021 18:49:09

Yal

Hallo Mikey,


ActiveSheet.Range("$A$3:$C$33").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

In dem Fall habe ich 3 Spalten markiert, aber beim "Duplikate entfernen" (Reiter "Daten"), nur die erste und zweite Spalten ausgewählt.
Bei der dritten Spalte wird wohl nur der erste Treffer die Aktion überleben.
VG
Yal

AW: Zeile löschen wenn zwei Inhalte gleich

20.05.2021 20:13:56

GerdL

Moin,
beim Codebeispiel ist die Spalte Z leer u. wird als Hilfsspalte verwendet.


Sub Unit()
Cells(1, 26).Resize(Cells(Rows.Count, 3).End(xlUp).Row, 1).FormulaLocal = "=WENN(ZÄHLENWENNS($C$1:$C1;$C1;$F$1:$F1;$F1)>1;0;ZEILE())"
Cells(1, 26) = 0
Range("A:Z").RemoveDuplicates 26, xlNo
Columns(26).Clear
End Sub

Gruß Gerd

Infobox / Tutorial

Zeilen löschen, wenn zwei Inhalte identisch sind

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Vorbereitung der Daten:
- Stelle sicher, dass Deine Tabelle die Werte enthält, die Du überprüfen möchtest, beispielsweise in den Spalten C und F.
Hilfsspalte hinzufügen:
- Füge eine leere Spalte hinzu, z.B. Spalte Y.
- In Zelle Y1 schreibe die Formel:
```
=C1&"#"&F1
```
- In Zelle Z1 schreibe die Formel:
```
=ZÄHLENWENN($Y$1:Y1;Y1)
```
- Kopiere beide Formeln nach unten für alle Deine Daten.
Filtern und Löschen:
- Filtere die Spalte Z nach „größer als 1“. Diese Zeilen sind Duplikate.
- Markiere die gefilterten Zeilen und lösche sie.
VBA-Lösung:
- Falls Du eine VBA-Lösung benötigst, kannst Du folgenden Code verwenden:
```
Sub RemoveDuplicates()
 ActiveSheet.Range("$A$1:$F$10000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub
```
- Dieser Code löscht alle Zeilen, bei denen die Werte in den ersten beiden Spalten identisch sind.

Häufige Fehler und Lösungen

Die Zeile kann nicht gelöscht werden:
- Überprüfe, ob die Zeile durch eine Formel oder einen Schutz gesperrt ist.
Die Hilfsspalte zeigt unerwartete Ergebnisse:
- Stelle sicher, dass die Formeln korrekt in alle Zeilen kopiert wurden.
Die Filterfunktion funktioniert nicht:
- Achte darauf, dass Deine Daten als Tabelle formatiert sind.

Alternative Methoden

Excel-Datenüberprüfung:
- Du kannst auch die Datenüberprüfung verwenden, um sicherzustellen, dass keine doppelten Werte eingegeben werden.
Suchen und Zeile löschen:
- Verwende die „Suchen“-Funktion in Excel, um gezielt nach bestimmten Inhalten zu suchen und die Zeilen zu löschen.
Excel VBA zur Automatisierung:
- Du kannst ein VBA-Skript erstellen, das regelmäßig die Daten überprüft und doppelte Zeilen entfernt.

Praktische Beispiele

Beispiel mit Formeln:
- Angenommen, Du hast die Werte A1: A10 in Spalte C und B1: B10 in Spalte F. Verwende die obigen Formeln, um die identischen Werte zu finden und zu löschen.
VBA-Beispiel:
- Mit dem VBA-Code kannst Du eine große Menge an Daten (z.B. 40.000 Zeilen) effizient verarbeiten.

Tipps für Profis

Verwendung von Shortcuts:
- Nutze den Shortcut Strg + - (Minus) zum schnellen Löschen von Zeilen in Excel.
Regelmäßige Überprüfung:
- Führe regelmäßig eine Überprüfung Deiner Daten durch, um doppelte Werte zu vermeiden.
Komplexe Bedingungen:
- Bei komplexen Bedingungen kannst Du die Funktion WENN verwenden, um bestimmte Zeilen nur unter bestimmten Bedingungen zu löschen.

FAQ: Häufige Fragen

1. Wie kann ich alle Zeilen löschen, die einen bestimmten Wert enthalten? Du kannst die Filterfunktion verwenden oder eine Formel kombinieren, um die Zeilen zu identifizieren und dann zu löschen.

2. Gibt es eine Möglichkeit, mehrere Zellen gleichzeitig zu löschen? Ja, Du kannst die Zellen markieren und dann mit Rechtsklick > Löschen die ausgewählten Zellen entfernen.

3. Was tun, wenn die Zeilen nicht gelöscht werden können? Überprüfe, ob die Zeilen durch einen Schutz oder eine Formel gesperrt sind. Deaktiviere gegebenenfalls den Schutz oder passe die Formeln an.

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn zwei Inhalte gleich

Forumthread: Zeile löschen wenn zwei Inhalte gleich

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen löschen, wenn zwei Inhalte identisch sind

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zeile löschen wenn zwei Inhalte gleich

Forumthread: Zeile löschen wenn zwei Inhalte gleich

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zeilen löschen, wenn zwei Inhalte identisch sind

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread