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

Es ist natürlich eine schwere individuelle Entscheidung notwendig, um aus gleichwertigen Zeilen die zu bestimmen, die nicht weiterzuverwenden sind - und das bei ellenlangen Listen? Das ist EDV in Kinderschuhen.

Eine zielgerichtete Lösung wäre, die um Duplikate bereinigte Liste einfach weiterzuverwenden. Eine SQL-Lösung sähe so aus:
Code:

Übersichtlich? Da wird wohlgemerkt nicht gelöscht, sondern einfach gruppiert (was viele aus Pivottabellen kennen) und als virtuelle Tabelle vorgehalten, die man anzeigen könnte, aber durchaus auch einfach weiterverarbeiten könnte.

Und: Die Gruppierung könnte auch über deutlich mehr als zwei Felder erfolgen, und SQL geht auch ziemlich rasch (wie gesagt: Man kennt es aus Pivot).

VBA braucht man dann, um SQL in Excel zugänglich zu machen.

 

\@ebs17

das ist nicht das gewünschte Ergebnis.

Falls doch, dann würde folgender Einzeiler, wie beriets erwähnt, reichen:
Code:

Ich bin mir auch nicht sicher ob SQL immer die Krönung ist wie du sie anpreist.

Stell bitte einen vollständigen Code ein, der SQL benutzt.
Ich würde gerne ein paar Tests fahren.

 

Hallo alle,

Danke für euere Hilfe. Habe die Codes eingesetzt und folgende Fragen sind aufgetaucht


RPP63neu
Ralf, wenn ich dein Code einsetze, dann kriege ich in Spalte C die Meldung : #Name?



Slowboarder
Daniel, super, funktioniert perfekt und super schnell !

For Z = 2 To UBound(arr1, 1)


Next

Ist aber doch irgendwie eine Schleife ?



Xlph
Geht auch super schnell !
Jedoch verstehe ich nicht, was folgender Befehl bewirkt :

CollectionKeyExist = (VarType(colData(strKey)) > -1)



Nochmals vielen Dank !

 

Hallo ebs17,

Hatte deine Antwort einfach übersehen, sorry.

SQL kenne ich nur vom Namen, bin aber interessiert. Wie xlph sagte, gut wäre, ein Code su schicken, was ich einsetzen könnte. Übrigens habe ich überhaupt keine Ahnung, wie man ein SQL Code in Excel funktionieren lässt : wäre für mich der Anlass, dies zu sehen.

Im voraus, danke

 

Hi

du musst bei Schleifen genau hinsehen:
Schleifen die direkt einzelne Excelzellen bearbeiten, sind sehr langsam und sollten vermieden werden.
Läd man die Zellinhalte jedoch in ein zweidimensionales Array und lässt dann die Schleife über das Array laufen, dann ist diese Schleife sehr schnell und man kann problemlos damit arbeiten.

Vorsicht ist auch bei ZählenWenn(s) geboten.
bei jedem ZähenWenn läuft intern (also innerhalb der Funktion) auch nochmal eine Schleife über alle Zellen die im ersten Parameter angegeben sind.
Wenn du also ein ZählenWenn auf alle Zeilen der Tabelle anwendest, dann ist die Gesamte Anzahl der Schleifendurchläufe = Anzahl Zeilen ^2.

Gruß Daniel

 

Prüft ob der Wert (=Schlüssel) in der Collection enthalten ist

 

In der momentanen Formulierung sicher nicht. Mein Ziel wäre es aber auch nicht, Zellen zu färben, sondern die Daten unmittelbar weiter zu verarbeiten. Irgendwo fiel das Stichwort Automatisierung. Wenn ein User objektive Kriterien für eine Auswahl verwenden kann, dann kann man diese auch gleich formulieren und dem verwendeten Code die Auswahl übertragen.

Das macht eher dann Sinn, wenn auch eine vollständige Aufgabenstellung vorliegt. Das Ermitteln bzw. Vereinzeln von Duplikaten ist doch auch nur ein Kratzen an der Oberfläche von vorhandenen Möglichkeiten.
In einer Realtabelle gibt es sicher mehr als die zwei gezeigten Spalten, und sicher ist auch ein gewünschtes richtiges Ergebnis etwas anderes als colorierte Zellen.

Als generellen Verweis: VBA - MATRIX-Formel über VBA -> zu langsam. Da gibt es auch verschiedene Lösungen zu einem Problem, wo man mit eigenen Daten auch selber Vergleiche anstellen kann.
Der generelle Weg wäre hier immer der gleiche (größtenteils kopierbar):
1) Verbindung zur Datenbank Excelmappe aufbauen, z.B. per ADODB.Connection wie im Link
2) Abfrage selber. Kann sehr funktional (mehrere Arbeitsschritte) sein.
3) Verarbeiten des Abfrageergebnisses, z.B. Kopieren des Ergebnisses in einen freien Bereich.
Wie bereits genannt fehlt mir da eine richtige Aufgabe.

Ich bin mir schon nicht sicher, worin die Eigenschaften einer Krönung bestehen.
Ein paar Aspekte könnte man in den Aussagen von EarlFred im Verlauf des verlinkten Themas finden.
Ansonsten gewinnt SQL dann seinen Charme, wenn es um ein paar mehr Daten geht, weil SQL eben für Massendatenverarbeitung konzipiert ist, siehe auch Grundlagen - SQL ist leicht (0) - Vorspiel

 

Da wir nicht wissen was der nächste Schritt ist und die Anzeige der Duplikate
gewünscht war, ist eine Färbung erstmal ausreichend und sollte als Alternative
dienen.

Der Autofilter kann auch nach Zell-Farbe filtern.

 

Hallo alle,


Daniel
Dann weiss ich bescheid, es bedarf aber etwas Zeit, sich an Array zu gewöhnen. Eine einfache Schleife versteht man von vornherein aber wenn man die Schnelligkeit deines Codes sieht, dann lohnt es sich, dies einzusetzen.


Xlph
Hättest du >0 geschrieben, dann würde ich es verstehen, aber warum -1 ?



Ebs17
Da ich überhaupt keine Erfahrung mit SQL habe muss ich mich aus der Debatte raushalten. Ich höre zwar, dass SQL Zukunft ist, meine Kenntnisse beim VBA sind zu schwach, dass ich eine weitere Sprache lerne. Werde ich mich auf VBA zunächst konzentrieren müssen.



An alle nochmals vielen Dank für euere Hilfe

 

Hallo,

VarType wird ausgewertet.

Rückgabewerte von VarType

 

OK,

danke !