Fügen Sie einer Zelle die Formel in Excel über vba

Ich bin nicht eine Excel-oder VBA-Experte, aber ich möchte einfügen das aktuelle excel-Formel in Zelle mit VBA.

Aktuellen Excel-Formel:

=IF(OR(ISNUM(D570)=FALSE;ISNUM(D573)=FALSE);"";IF(C573="Total";D573-D570;""))

VBA-Formel :

 ActiveSheet.Range("a" & ActiveSheet.Rows.Count).End(xlUp).Offset(2, 12).Value = "=IF(OR(ISNUM(R[-3]C[-9])=FALSE;ISNUM(R[0]C[-9])=FALSE);'';IF(R[0]C[-10]='Total';R[0]C[-9]-R[-3]C[-9];''))"

Funktioniert es nicht... kann Jemand mir bitte helfen?

InformationsquelleAutor | 2010-01-08

  1. 8

    Versuchen Sie es mit .formula = statt .value = in Ihrem VBA-code.

    Einstellung der .value einer Zelle einfach Kopien in beliebiger Wert, den Sie angeben. In diesem Fall, deine Formel ist einfach konvertiert in einen string-Wert.

    Mithilfe der .formula Eigenschaft, Sie sind eigentlich die Angabe der Formel, die verwendet wird, um berechnen das Wert, was Sie suchen.

    InformationsquelleAutor e.James

  2. 4

    Kann ich zunächst vorschlagen, eine Vereinfachung der Formel, aus:

    =IF(OR(ISNUM(D570)=FALSE;ISNUM(D573)=FALSE);"";IF(C573="Total";D573-D570;""))

    ......

    =IF(AND(C573="Total"; ISNUM(D570); ISNUM(D573)); D573-D570; "")

    Dann würd ich legen Sie eine Zelle (aktive Zelle im Beispiel unten) verwenden Sie diese Formel über VBA-code:

    ActiveCell.Formula = "=IF(...)"
    Auch ändern Sie das Semikolon zu Kommas.
    Oder FormulaLocal verwenden, aber ich denke, dass die Semikolons Kommas Idee ist besser..

    InformationsquelleAutor Gary McGill

Schreibe einen Kommentar