Sub
Test()
Dim
i
As
Long
Dim
j
As
Long
Dim
z
As
Long
Dim
arr1
As
Variant
Dim
arr2
As
Variant
arr1 = Tabelle1.Range(
"A2:C5"
)
arr2 = Tabelle2.Range(
"A2:B5"
)
z = 2
For
j = LBound(arr2)
To
UBound(arr2)
For
i = LBound(arr1)
To
UBound(arr1)
If
arr1(i, 1) = arr2(j, 1)
Then
Tabelle3.Cells(z, 1) = arr1(i, 1)
Tabelle3.Cells(z, 2) = arr1(i, 2)
Tabelle3.Cells(z, 3) = arr1(i, 3)
Tabelle3.Cells(z, 4) = arr2(j, 2)
z = z + 1
End
If
Next
i
Next
j
End
Sub