Wie konvertiere ich diese Excel Formel in VBA-code?

"Ich bin mit dieser Formel in einem Excel-Arbeitsblatt in Zelle A6. Es ist in Ordnung.

=WENN(O6="Hand","Manuelle Eingabe",WENN(O6="JET",R6,WENN(O6="COLA","Red Bull",WENN(O6="Freight","Logistik",WENN(O6="TAX","Steuer",WENN(O6="TRANSFER KOSTEN","Transfer Kosten-Transaktionen",WENNFEHLER(WENN(FINDEN("INV#",R6,1)>=1,MITTE(R6,FINDEN("INV#",R6,1),10),""),"")))))))

Nun, meine Frage ist: wie wandle ich das auf VBA? Ich habe versucht, Sie aufzunehmen, und der code ist wie folgt:

ActiveCell.FormulaR1C1 = _
"=WENN(RC[14]=""Hand"",""Manuelle Eingabe JE"",IF(RC[14]=""JET"",RC[17],IF(RC[14]=""COKE"",""Red Bull"",IF(RC[14]=""FREIGHT"",""Logistik"",IF(RC[14]=""STEUERN"",""Steuer"",IF(RC[14]=""TRANSFER KOSTEN"",""Transfer Kosten-Transaktionen"",WENNFEHLER(WENN(FINDEN(""INV#"",RC[17],1)>=1,MID(RC[17],FIND(""INV#"",RC[17]" & _
"""""),"""")))))))"

Wenn ich diese ausführe, erhalte ich Laufzeitfehler 1004: Application-defined or object-defined error.Also Änderte ich diese, so etwas wie dieses, das gleiche tun wie obige Formel, außer der option suchen, alles läuft gut.
![VBA Für Obige Formel][Jede Hilfe finden?]
End sub.Wie bekomme ich die feine Möglichkeit, in der obigen VBA-code.`

InformationsquelleAutor Ajit Kumar Jena | 2013-06-19
  1. 1

    Diese funktioniert bei mir:

    Range("L6").Formula = "=IF(O6=""Hand"",""Manual Entry"",IF(O6=""JET"",R6,IF(O6=""COKE"",""Red Bull"",IF(O6=""Freight"",""Logistics"",IF(O6=""TAX"",""Tax"",IF(O6=""TRANSFER COST"",""Transfer Cost Transactions"",IFERROR(IF(FIND(""INV#"",R6,1)>=1,MID(R6,FIND(""INV#"",R6,1),10),""""),"""")))))))"

    Dies ist nur Ihre ursprüngliche Excel-Formel, sondern mit der " Zeichen als "".

    InformationsquelleAutor Jean-François Corbett
  2. 0

    Müssen Sie entkommen, Ihre Zitate.

    ActiveCell.Formula = "=IF(O6=""Hand"",""Manual Entry"",IF(O6=""JET"",R6,IF(O6=""COKE"",""Red Bull"",IF(O6=""Freight"",""Logistics"",IF(O6=""TAX"",""Tax"",IF(O6=""TRANSFER COST"",""Transfer Cost Transactions"",IFERROR(IF(FIND(""INV#"",R6,1)>=1,MID(R6,FIND(""INV#"",R6,1),10),""""),"""")))))))"

    Und verwenden .Formula da Sie mit bestimmten Zelle mit Namen, die nicht relativ zum aktuell ausgewählten Zelle.

    • Immer noch Laufzeitfehler auf oben. Also ich hatte zu ändern, um einige othere Art und Weise, wie
    InformationsquelleAutor Ripster
Schreibe einen Kommentar