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
Die Bezeichnungen "Deal_Stage", "Deal_ID", "Date_Stamp" sind Namen/Bezeichnungen für Spalten. Im Moment der Ausführung übernimmt Excel die Formel aber fügt vor den Bezeichnungen Dollar Zeichen ein sodass es so aussieht: =WENNFEHLER(INDEX(Deal_Stage;VERGLEICH(B9&EDATUM(A9;-1);@Deal_ID&@Date_Stamp;0));Support!$A$2)