Problem mit doppelten Anführungszeichen beim Einfügen einer Formel mit einem Makro

Question

Ich versuche, ein Makro für ein Arbeitsprojekt zu schreiben, und bin auf ein Problem gestoßen.

Mein Ziel ist es, eine Formel in Zelle B2 einfügen und haben excel es füllen sich mit irgendetwas in ihm in die letzte Zeile nach unten, Spalte A. Referenzierung Was ich möchte, ist einzufügen:

=IFERROR(LEFT(A2,FIND(" ",A2)-1),A2) 

Die Formel sucht nach dem ersten Leerzeichen in Zelle A2 (ich benutze "", um ein Leerzeichen zu bezeichnen) und füge alles links von dem Leerzeichen in der Zelle ein, in der die Formel eingegeben wird. Dann fülle ich es aus. Dies ist mein Code so weit:

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IFERROR(LEFT(A2,FIND(" ",A2)-1),A2)" 

Ich denke, dass Excel denkt, dass ich die Formel nach den ersten doppelten Anführungszeichen in der FIND-Funktion am Ende.

Ich habe mich ein wenig online umgesehen und Leute gefunden, die sagen, & CHR (34) zu verwenden, um Excel zu zwingen, ein doublequote als ein Zeichen zu interpretieren, aber ich denke, dass das nur für Zeichenketten ist.

Weiß jemand, wie man dieses doppelte Zitatproblem vermeidet?

Dank

Answer 1

In VBA müssen Sie die Anführungszeichen innerhalb der Zeichenfolge verdoppeln-up

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IFERROR(LEFT(A2,FIND("" "",A2)-1),A2)"