Sub
testen()
Dim
objWks_T1
As
Worksheet, objWks_T2
As
Worksheet
Dim
x
As
Integer
, y
As
Integer
, lz
As
Integer
, lz2
As
Integer
Set
objWks_T1 = ThisWorkbook.Worksheets(
"Daten"
)
With
objWks_T1
lz = .Cells(Rows.Count,
"F"
).
End
(xlUp).Row
End
With
Set
objWks_T2 = ThisWorkbook.Worksheets(
"XY"
)
With
objWks_T2
lz2 = .Cells(Rows.Count,
"F"
).
End
(xlUp).Row
End
With
For
x = 2
To
lz
For
y = 5
To
lz2
If
objWks_T1.Cells(x, 6).Value = objWks_T2.Cells(y, 6).Value
Then
With
objWks_T1
objWks_T2.Cells(y, 14).Value = .Cells(x, 10).Value
End
With
End
If
Next
y
Next
x
End
Sub