Option
Explicit
Sub
Test()
Dim
wksG
As
Excel.Worksheet
Dim
wksZ
As
Excel.Worksheet
Dim
iZ
As
Long
Dim
iG
As
Long
Set
wksZ = ThisWorkbook.Worksheets(
"Zusammen"
)
Set
wksG = ThisWorkbook.Worksheets(
"Geschwindigkeit"
)
For
iZ = wksZ.UsedRange.Row
To
wksZ.UsedRange.Rows.Count
For
iG = wksG.UsedRange.Row
To
wksG.UsedRange.Rows.Count
If
wksG.Cells(iG,
"Q"
).Text = wksZ.Cells(iZ,
"A"
).Text _
And
wksG.Cells(iG,
"R"
).Text = wksZ.Cells(iZ,
"B"
).Text _
Then
wksZ.Cells(iZ,
"D"
).Value = wksG.Cells(iG,
"N"
).Value
Exit
For
End
If
Next
Next
End
Sub