Sub test()
Dim objWks_T1 As Worksheet, objWks_T2 As Worksheet
Dim x as Integer, y as Integer, m as Integer
Dim arrWert1(), arrWert2()
Set objWks_T1 = ThisWorkbook.Worksheets("Daten")
With objWks_T1
Set objRng = .Range(.Cells(2, 6), .Cells(lz, 6))
arrWert1 = objRng.Value
End With
Set objWks_T2 = ThisWorkbook.Worksheets("XY")
With objWks_T2
Set objRng = .Range(.Cells(5, 6), .Cells(lz, 6))
arrBest = objRng.Value
End With
For x = 1 To UBound(arrWert1)
For y as = 1 To UBound(arrWert2)
If arrWert1 (x, 6) = arrWert2)(y, 6) Then
With objWks_T2
.Cells(x, 9).Value = objWks_T2.Cells(y , 14).Value
End If
Next y
Next x
End Sub
Hab ich noch nicht getestet aber kannst du ja mal ausprobieren
Lukas
|