ich möchte im ActiveSheet bei Einfügen einer neuen Zeile zwei Formeln in die Spalten N und O der aktiven Reihe schreiben. P soll auf Inhalt ="" geprüft werden (da neue Zeile).
Excel stürzt bei folgendem Makro ab.
Hat jmd, eine Idee, wo der Fehler liegt?
Gruß
Chris
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If .Cells(Target.Row, "P") = "" Then
.Cells(Target.Row, 1).Select
.Cells(ActiveCell.Row, 14).FormulaR1C1 = "=SUM(RC[-10]+RC[-8]+RC[-6]+RC[-4]+RC[-2])"
.Cells(ActiveCell.Row, 15).FormulaR1C1 = "=SUM(RC[-10]+RC[-8]+RC[-6]+RC[-4]+RC[-2])"
end if
End with