Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

duplikate über 5 spalten suchen und löschen

Forumthread: duplikate über 5 spalten suchen und löschen

duplikate über 5 spalten suchen und löschen
18.05.2004 16:18:12
matt
hello people
ich habe eine tabelle mit ca 7000 adressen, welche
über 5 spalten reichen. in spalte a ist der name, in
spalte b der zusatzname, in c die strasse usw.
nun will ich alle doppelten datensätze löschen lassen per makro.
ist es möglich erst über alle 5 spalten zu vergleichen und zusätzlich
dann noch die sätze löschen, bei denen nur die spalten c, d und e übereinstimmen?
hoffe, ich habe mich verständlich ausgedrückt und das mir jemand helfen kann.
gruss matt
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: duplikate über 5 spalten suchen und löschen
ChrisL
Hi Matt
Hier ein Beispiel mit bedingter Formatierung und Hilfsspalte...
https://www.herber.de/bbs/user/6510.xls
Hier ein Makro...

Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 1) = Cells(iiZeile - 1, 1) And _
Cells(iZeile, 2) = Cells(iiZeile - 1, 2) And _
Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub

oder...

Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub

Gruss
Chris
Anzeige
AW: danke @chrisL m.T.
matt
Hallo Chris
danke schön für deine beiden vorschläge, sind beide echt super.
hast mir sehr geholfen.
gruss matt

Forumthreads zu verwandten Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 13:08:23
Thread-ID: 1002846
4 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 17:11:51
Thread-ID: 1006816
1 Beitrag
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 11:31:20
Thread-ID: 1007931
7 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 14:52:00
Thread-ID: 1014231
4 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
16.10.2008 01:08:59
Thread-ID: 1016705
4 Beiträge
Anzeige
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 14:09:28
Thread-ID: 1020573
2 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 12:27:54
Thread-ID: 1021806
3 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 13:04:00
Thread-ID: 1027253
4 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 09:51:00
Thread-ID: 1033514
3 Beiträge
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 11:57:00
Thread-ID: 1036687
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum