Schnittmenge zweier Spalten

Gordon · 2014-06-23T15:21:15+00:00

Moin moin, ich habe zwei Spalten (A1:A10000 und C1:C8000) mit Werten gefüllt. Nun möchte ich gerne die Werte herausfinden, die sich a) in beiden Spalten befinden und b) sich nur in Spalte C befinden. Bisher habe ich das mit zwei Schlleifen abgehandelt, was auch finktioniert, aber recht lange dauert. Gibt es noch andere Möglichkeiten um so etwas zu bewerkstelligen? Ich hatte es schon mit Union und Intersect versucht, aber irgendwie nicht hinbekommen. Ich wäre sehr dankbar, wenn da jemand eine Antwort für mich hätte. Danke euch schon mal im vor aus.... Gruß Gordon

Hallo
als Formellösung mit 2 Hilfsspalten (L:M)
Formeln ab Zeile2 nach unten copieren bis keine Werte mehr kommen...
mit http://www.excelformeln.de/formeln.html?welcher=194
Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Artikel A		Artikel C			in A und C	Nur in C						22
2	10		10		10	X						1
3	20		30		20							2
4	30		250		30	X						3	23
5	40		100		40							4
6	50		50		50	X						5
7	60		200		60							6
8	70		220		70							7
9	80		300		80							8	24
10	90				90							9
11	100				100	X						10
12	110				110							11
13	120				120							12
14	130				130							13
15	140				140							14
16	150				150							15
17	160				160							16
18	170				170							17
19	180				180							18
20	190				190							19
21	200				200	X						20
22	210				210							21
23	220				220	X						22
24					250		X
25					300		X
26
27

verwendete Formeln
Zelle	Formel	Bereich
M1	=MAX(L:L)
E2	=WENN(ZEILE(A1)>MAX(M:M);"";WENN(ZEILE(A1)>MAX(L:L);INDEX(C:C;VERGLEICH(ZEILE(A1);M:M;0));INDEX(A:A;VERGLEICH(ZEILE(A1);L:L;0))))
F2	=WENN(ZÄHLENWENN(A:A;E2)+10*ZÄHLENWENN(C:C;E2)=11;"X";"")
G2	=WENN(ZÄHLENWENN(A:A;E2)+10*ZÄHLENWENN(C:C;E2)=10;"X";"")
L2	=WENN(ZÄHLENWENN(A$2:A2;A2)=1;MAX(L$1:L1)+1;"")
M2	=WENN(UND(ZÄHLENWENN(C$2:C2;C2)=1;ZÄHLENWENN(A:A;C2)=0);MAX(M$1:M1)+1;"")

Tabellendarstellung in Foren Version 5.49

Gruß UweD

Hallo,
ca. 0,1 Sek.:

Sub SpaltenVergleich()
Dim i As Integer
Dim arrA, arrC
Dim objA As Object, objC As Object, objAC As Object, objItem
Set objA = CreateObject("Scripting.Dictionary")
Set objC = CreateObject("Scripting.Dictionary")
Set objAC = CreateObject("Scripting.Dictionary")
objAC("Beide") = 0
objC("nur C") = 0
arrA = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
arrC = Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
For i = 1 To UBound(arrA)
objA(arrA(i, 1)) = arrA(i, 1)
Next
For i = 1 To UBound(arrC)
objC(arrC(i, 1)) = arrC(i, 1)
Next
For Each objItem In objA
If objC.exists(objA(objItem)) Then
objAC(objItem) = 0
End If
Next
For Each objItem In objC
If objA.exists(objC(objItem)) Then
objC.Remove (objA(objItem))
End If
Next
Range("E:F").Clear
If objAC.Count Then
Cells(1, 5).Resize(objAC.Count) = WorksheetFunction.Transpose(objAC.keys)
End If
If objC.Count Then
Cells(1, 6).Resize(objC.Count) = WorksheetFunction.Transpose(objC.keys)
End If
End Sub

Gruß
Rudi

Forumthread: Schnittmenge zweier Spalten

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial