Weil wenn ich es so ausübe, kommt eine Fehlerfemeldung: "Anwendungs- oder objektdefinierter Fehler"
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)).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
|