Sub
Test()
Dim
rngS
As
Range
Dim
rngHit
As
Range
Dim
arrT()
As
Variant
Dim
x
As
Long
, y
As
Long
Application.ScreenUpdating =
False
Set
rngS = Tabelle2.UsedRange.Columns(1).Resize(, 3)
arrT = Tabelle1.Range(
"A2:C2000"
).Value
For
x = LBound(arrT, 1)
To
UBound(arrT, 1)
For
y = LBound(arrT, 2)
To
UBound(arrT, 2)
Set
rngHit = rngS.Find(arrT(x, y), , xlValues)
If
Not
rngHit
Is
Nothing
Then
If
rngHit.Column = y
Then
Tabelle2.Rows(x).Columns(
"E:AB"
).Copy Tabelle1.Range(
"G"
& x)
Exit
For
End
If
End
If
Next
y
Next
x
Application.ScreenUpdating =
True
End
Sub