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),Range(Cells(2,2), Cells(LastRow, 2))&Range(Cells(2, 1), Cells(LastRow, 1)),0)),support!R2C1)"
Range(.Cells(2, 20), Cells(LastRow, 20)).Formula = "=N2+S2"
End With
End Sub
Auch wenn ich es so ummünze, folgt folgendes im Sheet:
=WENNFEHLER(INDEX(Deal_Stage;VERGLEICH(B12&EDATUM(A12;-1);@Range(Cells(2;2); Cells(LastRow; 2))&@Range(Cells(2; 1); Cells(LastRow; 1));0));Support!$A$2)
Ich danke sehr für eure Mithilfe
|