r1c1 und Excel Formel Ausbeuten Fehler

Question

ich diese sehr einfache Schleife gemacht haben eine Formel auf alle Zellen in einem Bereich gelten:

For Each cell In Range("G5:G500") 
    cell.Offset(0, 7).FormulaR1C1 = "=IF(Len(RC[-4]>0),(RC[-2])/(RC[-4]),"")" 
Next 

Es gibt „anwendungsdefinierte oder objekt definierten Fehler“ für die Linie

cell.Offset(0, 7).FormulaR1C1 = "=IF(Len(RC[-4]>0),(RC[-2])/(RC[-4]),"")" 

Ich kann nicht herausfinden, wo ich hier falsch liege. Ich habe versucht:

• Verschiedene verschiedene Formate von R1C1 (zB RC [1] oder R [] C [1])
• unter Verwendung der Formel anstelle von R1C1 aber dann kann ich beziehen sich nicht geometrisch Zellen
• ich bin mir ziemlich sicher, dass alle meine Klammerung korrekt

ist sehr verwirrt und würde wirklich zu schätzen einen oder anderen Tipp auf diesen Hinweis!

Answer 1

I‘ Ich hatte das schon mal! Ändern Sie 0 bis 0,001 oder etwas Kleines und wickeln Sie es in eine IFERROR-Formel ein, um Fehler zu verhindern, die dadurch entstehen, dass vba die Formel verwendet! und das sollte den Trick machen

Answer 2

Nicht sicher, wo das Problem ist, aber wenn ich den Code

zu ändern

For Each cell In Range("G5:G500") 
    cell.Offset(0, 7).FormulaR1C1 = "=IF(Len(RC[-4]>0),(RC[-2])/(RC[-4]),N/A)" 
Next 

es funktioniert gut. So wahrscheinlich Ausgabe in if-Anweisung mit "" in der Zelle eingefügt ... (ich werde einen tieferen Blick macht)

edit: ja, Problem mit war Klammer als jemand in Kommentar erwähnt

For Each cell In Range("G5:G500") 
    cell.Offset(0, 7).FormulaR1C1 = "=IF(Len(RC[-4]>0),(RC[-2])/(RC[-4]),)" 
Next