Excel-Formel in VBA implementieren

Question

Ich habe diese Excel-Formel, die ich über VBA implementieren möchte, leider führt es zu einem Fehler.

Meine Excel-Formel:

 IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50)) 

Mein VBA Versuch:

Range("B1:B50").Formula = _ 
    "=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))" 

Daraus ergibt sich folgende Fehler:

„Laufzeitfehler '1004': Anwendung definiert oder Objekt -definierter Fehler "

Als Anfänger in VBA bin ich mir nicht sicher, was ich damit machen soll.

Answer 1

"" benötigt """"

Auch die Formel, die Sie müssten zeigen sein zu Array eingegeben, aber Sie dies einfach tun können:

Range("B1:B50").Formula = _ 
    "=IF(IsEmptyorNothing(A1), """", IF(ISNUMBER(VALUE(A1)), VALUE(A1), A1))" 

Und Excel die A1 setzen einzustellen, wie die Formel automatisch kopiert.

Dies setzt voraus, dass IsEmptyorNothing eine UDF ist, da keine solche Formel in Excel vorhanden ist.