Sub FormelEinfuegen()
Dim ErsteZeile As Long
Dim LetzteZeile As Long
Dim i As Long
ErsteZeile = 1 'anpassen
LetzteZeile = 20 'anpassen
For i = ErsteZeile To LetzteZeile
If Cells(i, 2) = "Ergebnis" Then
Cells(i, 6).FormulaR1C1 = "=RC[-1]*100/RC[-2]"
End If
Next i
MsgBox "done!"
End Sub