2 Spalten vergleichen, bei Treffer Wert übernehmen
12.05.2015 09:44:39
Sebastian
ich möchte folgendes per Macro automatisieren:
Spalte I aus Datei 1 soll mit Spalte I aus Datei 2 verglichen werden. Stimmt die Nummer darin überein, so soll der Wert in Datei 2 der in Spalte AK steht übertragen werden in Datei 1 Spalte AN.
Mit folgendem Ansatz hab ich es bisher geschafft die Spalten zu vergleichen und bei treffer einen Wert in die richtige Spalte zu schreiben:
Sub Find_Matches()
Dim CompareRange As Variant, PRange As Variant, x As Variant, y As Variant, preis As _
Variant
Set CompareRange = Workbooks("Beispiel_EVOB_ECM600.xlsx").Worksheets("2016_ECM_600").Range("I24: _
I50")
Set PRange = Workbooks("Beispiel_EVOB_ECM600.xlsx").Worksheets("2016_ECM_600").Range("AK24:AK50" _
)
For Each x In Selection
For Each y In CompareRange
For Each preis In PRange
If x = y Then x.Offset(0, 31) = preis
Next preis
Next y
Next x
End Sub
Problem: Der Wert der bei Treffer ausgegeben wird ist einfach der Durchlauf aus PRange (also einfach der Wert aus Zelle AK50). Habe schon versucht eine Schleife mit zähler einzufügen, bin aber mit meinem latein am Ende...
Hoffe jemand kann mir helfen
Viele Grüße
Sebastian
Anzeige