Sub Formel_runter_kopieren()
'Formel aus L1 runterkopieren
Dim LastRow As Integer 'last row
With Worksheets("Target Data")
Application.ScreenUpdating = False
'letzte Zeile auffinden:
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
'Formel für O und AG runterkopieren:
Range(Cells(2, 15), Cells(LastRow, 15)).Formula = "=IFERROR(INDEX(Deal_Stage,MATCH(RC[-13]&EDATE(RC[-14],-1),Deal_ID&Date_Stamp,0)),support!R2C1)"
Range(Cells(2, 20), Cells(LastRow, 20)).Formula = "=N2+S2"
End With
End Sub
|