FormulaR1C1 zu Formel

Dim i As Long, Loletzte As Long, Value As Integer
Value = Application.WorksheetFunction.Round(Value, 0)
With Worksheets("bearbeitet(1)")
Loletzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 16 To 71 Step 5                                                                      _
.Range(.Cells(2, i), .Cells(Loletzte, i)).FormulaR1C1 = "=IF(RC[-4]-RC[-2]

FormulaR1C1 = "=IF(RC[-4]-RC[-2]