= Zeichen per Makro einsetzten

[MCT1979]

Hallo Zusammen, 

falls jmd von Euch Interesse hat?
Folgendes Problem, heruntergebrochen auf das einfache Bsp.

Auf dem Desktop habe ich eine Excel Datei Mappe1. Im Ordner Download eine Excel Datei Mappe2.
In Mappe1 Tabelle1 Zelle A1 steht ein Pfad OHNE = Zeichen zu Mappe 2 Tabelle1 Zelle A1. Zellinhalt einfache Addition von A2 und A3.

Das Makro in Mappe1 soll nun einfach ein = Zeichen vor den Pfad zu Mappe2 hinzufügen, so dass in Mappe1 die Formel ausgeführt werden kann.
Beim Ausführen des Makros erscheint bisher immer Laufzeitfehler 1004 anstatt der erwarteten Ziffer 5. 

Woran kann dies liegen?

Herzliche Grüße

[oee]

Unten machst du es ja korrekt (Range("A1").Formula) - wieso nimmst du oben (Range("A1"). Value?

[knobbi38]

Hallo,

so ein Screenshot sieht schön aus, aber der praktische Nährwert ist gleich null. Soll jemand das jetzt abtippen, um den Fehler nachvollziehen zu können? Es wäre ebenso hilfreich, wenn du die genau Zeile angibst, in der der Fehler auftritt.

Im Übrigen hast du nur ein Hochkomma  in deinem Feld, gewöhnlich treten die nur paarweise auf.

[EA1950]

Hallo,

das Makro sollte wie folgt lauten:

Code:

Sub AddEqualSignToFormula()
   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets("Tabelle1")
  
   Dim cellContent As String
   cellContent = ws.Range("A1").Formula
  
   If Left(cellContent, 1) <> "=" Then
      ws.Range("A1").Formula = "='" & cellContent
   End If
End Sub

Es muss nicht bloß das "=" am Anfang ergänzt werden, sondern auch ein Hochkomma. 
Das erste Hochkomma vor dem C: wurde von Excel verwendet, um den String links auszurichten. Dieses fehlende Hochkomma hat den unspezifischen Fehler 1004 verursacht.