Sub
Formel_runter_kopieren()
Dim
LastRow
As
Integer
With
Worksheets(
"Target Data"
)
Application.ScreenUpdating =
False
LastRow = Cells(Rows.Count,
"B"
).
End
(xlUp).Row
Range(.Cells(2, 15), Cells(LastRow, 15)).Formula2 =
"=IFERROR(INDEX([Deal Stage],MATCH(CONCATENATE([@[Deal ID]],EDATE([@[Date Stamp]],-1)),CONCATENATE([Deal ID],[Date Stamp]),0)),Support!$A$2)"
End
With
End
Sub