Laufzeitfehler ‚13‘ Typ Miss Match

Question

Ich versuche, ein Makro auszuführen, die automatisch die Formel einfügen wird

=IFERROR(IF('307'!A2=0,"-",'307'!A2),"-") 

Wenn ich den VBA-Code-Setup mit dem Code unten haben es nicht funktioniert. Ich erhalte nur den Typenkonfliktfehler.

Range("B2:B33").Formula = "=IFERROR(IF('307'!A2=0," - ",'307'!A2)," - ")" 

Im Wesentlichen wollen, was ich passieren haben, ist die Formel eingefügt werden und dann die nächste Formel müsste ‚A3‘ die nächste ‚A4‘ und so weiter. Gibt es einen einfachen Weg, dies zu erreichen?

Vielen Dank im Voraus.

Answer 1

Wenn Sie die Zitate zeigen wollen, dann müssen Sie sie in vba verdoppeln:

"=IFERROR(IF('307'!A2=0,"" - "",'307'!A2),"" - "")" 

Answer 2

Wie Scott Craner wies darauf hin: Um Anführungszeichen zu entkommen „Sie brauchen, um sie zu verdoppeln“.

Hier ist ein einfacher Trick, um alle Ihre Angebote zu verdoppeln.

? Replace (Range ("A1"). Formel, Chr (34), Chr (34) & Chr (34))

= IFERROR (IF ('307' ! A2 = 0, "" - "", "307"! A2), "" - "")