Formel in Zelle schreiben und sperren
29.09.2003 10:22:29
SVen
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