Office: (Office 2007) Mit VBA Duplikate finden, die aus zwei Spalten bestehen

Hallo an alle,

ich suche vergebens, wie ich mit VBA Duplikate eruieren kann, wenn es sich um nicht eine sondern um zwei Spalten handelt

Ich weiss, dass ich eine zusätzliche Spalte kreieren könnte mit Spalte A & Spalte B und dann diese Kombination sortieren aber ich suche eine Lösung ohne dieser Krücke (siehe Anhang)

Wüsste jemand, wie sowas sich mit VBA machen lässt ?

im voraus, danke

:)

 

warum VBA?


Automodelle

	A	B
1	Autobauer	Modell
2	Audi	A1
3	Audi	A3
4	Audi	A3
5	Audi	A3
6	Audi	A3
7	Audi	A3
8	Audi	A4

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. *Regeltyp	Operator	Formel1	Formel2	Format Schrift Füllfarbe	Unterstrichen	Schrift- farbe	Muster	Musterfarbe	Typ	Bereich
$A:$B	01.Bed.: Formel ist		=SUMMENPRODUKT(($A:A1=A1)*($B:B1=B1))>1		5287936					2	A:B

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.02 einschl. 64 Bit

 

Hi!
Warum nicht einfach (ohne Hilfsspalte):

*	A	B	C
1	Autobauer	Modell	*
2	Audi	A1	*
3	Audi	A3	*
4	Audi	A3	Duplikat
5	Audi	A3	Duplikat
6	Audi	A3	Duplikat
7	Audi	A3	Duplikat
8	Audi	A4	*
9	Audi	A5	*
10	Audi	A6	*
11	Audi	A7	*
12	Audi	A8	*
13	Audi	Q3	*
14	Audi	Q5	*
15	Audi	Q7	*
16	Audi	Q7	Duplikat
17	Audi	R8	*
18	Audi	R8	Duplikat

Zelle	Formel
C2	=WENN(A2&B2=A1&B1;"Duplikat";"")

Und wenn Du sie auf einen Rutsch entfernen willst, reicht doch:

Code:

Gruß Ralf

 

Hallo alle,

Danke für euere rasche Antwort.

Hajo
Dies möchte ich mit VBA machen weil diese Sub in eimen umfangreichen Projekt integriert wird. Bevor alles weiter geht und kalkuliert wird muss ich sicher sein, dass Duplikate erkannt wurden.
Wäre zu langwierig und vor allem zu riskant, dies mit der Hand zu machen
Farbe war in meinem Beispiel nur da, um Duplikate hervorzuheben (sorry, hätte ich sofort sagen sollen)


Ralf
Deine Lösung ist einfach : warum habe ich nicht eher daran gedacht, die Hilspalte einfach weg zu lassen ?
Dieses Prinzip werde ich in einer Schleife integrieren , sodass ich es automatisieren kann

Nochmals vielen Dank für eueren Beitrag

 

Hi
warum Schleife?????
du kannst die Formel von Ralfs Lösung auch gleich direkt in alle Zellen per VBA schreiben.
Du musst nur sicherstellen, dass die Sortierung stimmt und ggf vorher nach Spalte A und B sortieren wenn das nicht gewährleistet ist (Ralfs Formel funktioniert nur in sortierten Listen)

Gruß Daniel

 

Hallo Daniel,

Eine Schleife werde ich einsetzten weil dieser Code künftig in ein Projekt integriert wird.
Vieles von diesem Projekt habe ich schon gemacht, nur eben dieser Test, wo sich die etwaigen Duplikate sich befinden muss ich noch erledigen
Es wird regelmässig eingesetzt und die Länge der Spalten variiert von Woche zur Woche, also muss ich es variabel machen.
Bei diesem Beispiel war die Länge der Spalte bekannt aber küntig weiss ich es nicht : je nach dem, wieviele Einträge es gibt

Mit einer Flut von Zeilen wollte ich zunächst nicht stören und habe mich auf das wesentliche konzentriert, übrigens, wie ich die Duplikate identifizieren kann, ohne Hilfspalte

Gruss

 

oder wie meinst du des, in Zellen zu schreiben, ohne Schleife einzusetzen ? Wie geht das, ohne Schleife ?

Gruss

 

Hallo!
Ich unterstütze Daniels Meinung unbedingt!
Schleifen in VBA, vor allem wenn sie Zellzugriffe machen, ist das langsamste, was man Excel antun kann.
Ich habe in einem anderen Forum eine grottige Schleifen-Lösung mokiert und ein Makro geschrieben, was bei 100.000 Datennsätze trotz mehrfacher Sortierung und kopieren von Unikaten (also quasi vice versa) 1 Sekunde lief.

Vielleicht kannst Du es ja für Deine Bedürfnisse anpassen (oder Dir hier nochmal Hilfe holen:

Code:

Gruß Ralf

 

\@Ralf

was soll denn das Ziel deines Codes sein?

@ExcelAnfaenger

wie soll weiterverarbeitet werden? Was passiert mit den Duplikaten?

 

Hi

mit Schleife meine ich dass Programmierer ohne Excelkenntnisse hier sowas programmieren würden

Code:

Formel mit Schleife geht natürlich auch:
Code:

wobei beides extrem langsam ist.
das schnellste und einfachste wäre:
Code:

(alle codebespiele hier mit festen Zellbereichen, muss natürlich angepasst werden, ebenso die vorherige sortierung)

Gruß Daniel

 

\@xlph
Obiges ermittelt Unikate in Spalte A und kopiert sie in ein anderes Blatt.

@excelanfänger:
Für Deine Datei habe ich mal die ersten Zeilen geschrieben.
Lösche Deine Spalten C und D und lasse mal folgendes Makro laufen:
Code:

Gruß Ralf

 

Guten Tag,

Sorry, dass ich spät antworte, war unterwegs ohne Zugang zu Internet.


Ralf
Danke für den Tipp, höre zum ersten Mal, dass man so verfahren kann, umso besser wenn es super schnell arbeitet !

Trotzdem happert’s bei mir so
- With Tabelle1 wird nicht erkannt (auch wenn ich den echten Namen des Blattes erwähne)
Wenn kein option explicit, dann blokiert es hier :

.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Sort _
Key1:=.Cells(2, 1), Order1:=xlAscending, Header:=xlNo


Was ist falsch bei mir ?
Gilt auch bei deinem letzten Vorschlag


Xlph
Du hast recht, sofort hätte ich sagen sollen, was ich genau will.
Wie im Titel erwähnt, ich suche eine Lösung, wie man Duplikate identifizieren kann. Also konkret z.B. « Duplikat » in Spalte C schreiben, wenn ein auftaucht (aber ohne Hilsspalte die eine Aneinanderreihung beinhaltet)
Die will ich zunächst nur identifizieren, nicht sofort entfernen, weil der Benutzer entscheiden soll, welcher von den beiden (oder mehreren) er entfernen will


Daniel
Danke für den Rat, ich arbeite daran, mich zu verbessern und lerne jeden Tag. Ich muss tatsächlich gestehen, dass ich ein Programmierer nicht ohne aber mit geringen Excelkenntnisse bin. Jedoch freue ich mich, wenn ich vom Forum was lerne.


Danke nochmals

 

Hi!
Ich habe die Datei noch gespeichert.
In Excel Alt+F8, Makro MachsVielSchneller ausführen.

Gruß Ralf

 

Hi

für einen Programmierer mit geringen Excelkenntnissen aber dafür besseren VB-Kenntnissen wäre das hier vielleicht eine passende Lösung.
Ist auch sehr schnell und funktioniert in unsortierten Daten.

Code:

Gruß Daniel

 

Hallo,

oder du färbst die Doppelten:

Code: