Vergleich zweier Spalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo M. (Michael oder Manuel)
... unklar ist zumindest noch, ob auch doppelte gefunden werden sollen, die lediglich in einer der beiden Spalte vorkommen. Desweiteren was Du genau meinst mit: "nur die ersten 5/10 Zeichen der Einträge miteinander verglichen werden" Auch dafür fehlen Vorgabebeispieldatensätze.
Für die akt. aktuell Daten, habe ich zunächst mal eine reine Formellösung aufgestellt und zwar noch ohne vorhandene Doppelte innerhalb einer Spalte zu berücksichtigen (gelb hinterlegte Zellen)
Die Datentabelle hab ich zuvor als eine "intelligente" Tabelle formatiert und diese _tabl1 benannt.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
7	Spalte 1	Spalte 2	Doppelte
8	A1	B1	A1
9	B1	C1	B1
10	AKSLDOSLOR	ASLKSORLA	ASLKSORLA
11	ASLDKWOLAOSL	A1B1	LGLKSURS
12	ALSKDOELAMKD	XYZ	FKJÖKHLÖFK
13	ASLKSORLA	LGLKSURS
14	LGLKSURS	A1
15	DJKJFKLWLTK	FKJÖKHLÖFK
16	SKJLKSJFLKS	A1B1
17	RTOIOEPEWR
18	FALKJFKLAJFLKA
19	FKJÖKHLÖFK
20	FKJSKSKLSL
21	AKSLDOSLOR

Zelle	Formel
C8	=WENNFEHLER(INDEX([Spalte 1];AGGREGAT(15;6;(ZEILE([Spalte 1])-ZEILE(_tbl1[#Kopfzeilen]))/(ZÄHLENWENN([Spalte 2];[Spalte 1])&gt0)/(ZÄHLENWENN(C$7:C7;[Spalte 1])=0);1));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Gruß Werner
.. , - ...

Hallo Werner,
Erstmal möchte ich dir für die Formellösung danken. Vielen Dank!
Ich möchte gern, dass mein VBA-Code korrigiert wird. Ich hab des nun so hinbekommen, dass die doppelten Werte gefunden werden, leider dauert es eine gewisse Rechenzeit, wenn ich den Range-Bereich vergrößere.
Und was ich noch brauche ist: genau wie es bei dir in der Tabelle ist: ich hab in der einen Spalte A1B1 und in der anderen A1. Nun möchte ich die Formel/VBA-Code so verstellen, dass nur immer die ersten zwei Zeichen miteinander verglichen, bei jedem Eintrag und wenn es hier eine Übereinstimmung gibt, sollte des in der Ziel-Spalte ausgegeben werden ( und zwar das, was in der zweiten Spalte steht), also in dem Fall A1B1.
Verstehst du mich?
Gruß,
Manuel alias Michael

Sub cmdFindDoubles_Click() Dim CompareRangeA As Range, CompareRangeB As Range, x As Range, y As Range Dim targetColumn As Long targetColumn = 3 Set CompareRangeA = Worksheets("Tabelle1").Range("A8:A20") Set CompareRangeB = Worksheets("Tabelle1").Range("B8:B20") Cells(7, targetColumn) = "Doppelte Einträge" Cells(7, targetColumn).Interior.Color = RGB(0, 255, 0) Columns(targetColumn).EntireColumn.AutoFit Dim targetIndex As Long targetIndex = 8 For Each x In CompareRangeA For Each y In CompareRangeB If x.Value "" Then If Left(x.Value, 5) = Left(y.Value, 5) Then Cells(targetIndex, targetColumn) = x.Value Debug.Print x.Value, y.Value targetIndex = targetIndex + 1 End If End If Next y Next x End Sub

Sub DoppelteInBeidenSpalten() With Range("C8:C" & Cells(7, 2).End(xlDown).Row) .FormulaR1C1 = "=IF(CountIf(R8C1:R" & _ Cells(7, 1).End(xlDown).Row & "C1,left(RC2,10)&""*""),RC2,NA())" .Formula = .Value On Error Resume Next .SpecialCells(xlCellTypeConstants, 16).Delete shift:=xlUp On Error GoTo 0 End With End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleich zweier Spalten

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread