Zwei Spalten vergleichen

Hallo Liebe Forengemeinde,
habe mal ein Problem bzgl. der sngehangenen Datei. Mit dieser Datei möchte ich die Werte zweier
Spalten vergleichen und zwar wie folgt.
In der Spalte A stehen Artikelnummern ( bis zu 65535 ) die ich aus einer Hersteller CD exportiere.
In der Spalte I stehen Artikelnummern die in unserer Datenbank enthalten sind. Ich möchte nun
überprüfen ob die Artikelnummer aus der Spalte I in der Spalte A enthalten ist, und wenn ja dann
ausgeben (in Spalte J) in welcher Spalte sich diese befindet. Habe schon mit einem Makro angefangen,
aber ich bekomme es nicht hin die Zeile des Gefundenen Artikels auszugeben.
Ich habe das ganze schon mit Sverweis laufen, jedoch ist das viel zu langsam. Bei kleinen Datenmengen
geht das, aber bei Datenmengen von bis zu 65536 ist dauert es fast ne Stunde. Und sobalt ich eine Änderung mach, oder Daten kopieren möchte, die Datei abspeichern möchte usw. startet jedesmal wieder
die Berrechnung.
Vielleicht weis jemand von Euch eine Lösung...
Danke und Gruss
Hausen
https://www.herber.de/bbs/user/62484.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Hausen,
versuchs mal so:
Option Explicit


Sub FundortSchreiben()
Dim arr1, arr2, i As Long, j As Long, EndeA As Long, EndeB As Long
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets(1)
EndeA = .Cells(Rows.Count, 1).End(xlUp).Row
EndeB = .Cells(Rows.Count, 9).End(xlUp).Row
arr1 = .Range(.Cells(9, 9), .Cells(EndeB, 9))
arr2 = .Range(.Cells(9, 1), .Cells(EndeA, 1))
.Range(.Cells(9, 10), .Cells(EndeB, 10)).ClearContents
For i = LBound(arr1) To UBound(arr1)
For j = LBound(arr2) To UBound(arr2)
If Trim$(arr1(i, 1)) = Trim$(arr2(j, 1)) Then
.Cells(i + 8, 10).Value = "Spalte A, Zeile: " & j + 8
Exit For
End If
Next
Next
End With
Erase arr1: Erase arr2: Set arr1 = Nothing: Set arr2 = Nothing
Application.ScreenUpdating = True
End Sub

Rückmeldung wäre nett.
Gruß aus Berlin von
Roland Hochhäuser

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel
C1	=WENN(ZÄHLENWENN(A:A;B1)>0;"in Spalte A vorhanden";"")
C2	=WENN(ZÄHLENWENN(A:A;B2)>0;"in Spalte A vorhanden";"")

definierte Namen
Name	Bezieht sich auf
d	=Tabelle2!$D$25

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C
1		2
2		1	in Spalte A vorhanden
3	1

Zwei Spalten vergleichen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread