WO liegt da der Fehler, er sperrt weder die Zelle noch schreibt er vorher dien Formeltext in die Zelle!

If ActiveSheet.Range("d" & i) = "" And Not ActiveSheet.Range("e" & i) = "" Then
Worksheets("Berechnungen").Range("b" & Count) = "Display"
das schreibt er nicht in die Zell
Worksheets("Berechnungen").Range("h" & Count) = "=r1c9/r1c3"
Und gesperrt wird sie auch nicht
Worksheets("Berechnungen").Range("h" & Count).Select
Selection.Locked = True
End If

Ach und wie kann ich die Formel variabel machen,so wie das mit dem Count auch funktioniert?

Gruß Sven