Hallo Leute!
Ich hoffe ihr könnt mir helfen!
Habe ca.30.000 Datensätze
Spalte A(Ziel) & B(Produkt) sollen mit H(Ziel) & I(Produkt) verglichen werden.
Wenn beide Identisch sind soll jeweils der wert aus C & D nach O & P kopiert werden.
Hier nochmal zur Verdeutlichung! Wenn A & B komplett durchsucht wurde sollte dann in O & P jeweils C & D kopiert sein.
http://www.pic-upload.de/view-11608234/Test1.jpg.html
Dieses Beispiel habe ich schonmal aber funktioniert nicht wirklich!!!
Public Sub Poppi() Dim lngZ As Long Dim lngLast As Long Dim rngCell As Range Range("O2:P" & Cells(Rows.Count, 1).End(xlUp).Row + 2).ClearContents For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(lngZ, 25).Value = Cells(lngZ, 1) & Cells(lngZ, 2) Cells(lngZ, 26).Value = Cells(lngZ, 8) & Cells(lngZ, 9) Next For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set rngCell = Columns(26).Find(Cells(lngZ, 25), LookIn:=xlValues, lookat:=xlWhole) If Not rngCell Is Nothing Then Cells(rngCell.Row, 15).Value = Cells(lngZ, 3).Value Cells(rngCell.Row, 16).Value = Cells(lngZ, 4).Value End If Next Columns(25).Clear Columns(26).Clear MsgBox "Fertig", 64 End Sub
Ich hoffe ihr könnt mir helfen.
Danke schon mal im voraus.