#NAME? Wie man eine Formelleiste liest, um die Formel eines Fehlers zu ändern - überschreibe es nicht

Question

Ich bin auf diesem Problem für eine sehr lange Zeit festgefahren worden. Ich habe mir Wege ausgedacht, aber jeder bringt mehr Probleme auf den Tisch.

Mein Makro kopiert und fügt Informationen aus Microsoft Word in Excel ein und formatiert dann das Excel-Blatt.

Einige der Zellen zeigen jedoch einen #NAME? Error. Der Grund dafür ist, dass die Zelle in "= ------- List SC" kopiert wird. Ich muss in diese Zelle und entfernen Sie die "= ------" und lassen Sie nur die Zeichenfolge List SC.

Ich kann es aber nicht einfach überfahren, weil es sich jedes Mal ändert. Es könnte "List FL" oder "List BP" oder jede andere Variation sein.

Ich kann keine InStr oder irgendeine andere Funktion ausführen, weil der VBA-Code es nur als einen Fehler liest und die Formelleiste nicht liest. Es liest nur "#NAME?" oder erkennt einen Fehler.

Hat jemand Vorschläge, was ich tun kann?

Ich habe ein Bild des Problems aufgenommen. Die Highlights sind die Fehler- und die Formelleiste.

Vielen Dank!

Jonathan

Answer 1

So stellt sich heraus, dass ich die Formel in eine Zeichenfolge speichern und ein "" als erstes Zeichen in der Zeichenfolge hinzufügen kann. Ich kann dann die bestehende Formel in der Zelle durch die Zeichenfolge (im Folgenden stfF genannt) ersetzen.

Dies ist mein Code.

Dim STRF As String

For x = 4 To 100 
    strF = "'" & Cells(x, 1).Formula 
    Cells(x, 1) = strF 
Next 

Answer 2

Mein Makro copys und Pasten Informationen aus Microsoft Word in Excel ... Einige der Zellen zeigen jedoch ein #NAME? Error.

Sie müssen die Zeichenfolge, die Sie aus Word erhalten bearbeiten vor Sie es in Excel einfügen. Sie müssen alle ungültigen Zeichen aus der Zeichenfolge entfernen. Dann können Sie es als Formel einfügen.

Wenn ----List der Wert ist, den Sie in der Zelle haben möchten, dann setzen Sie ihn mit einem einfachen Zitat voran: '----List, so wird es als Text interpretiert.

Answer 3

Verwenden Sie in VBA die Methode .Formula, um auf die tatsächlich verwendete Formel zuzugreifen und die Zeichenfolge zu ersetzen.

With Cells(1,3) 
    .Formula = Replace(.Formula, "=------ ", "") 
End With