Ich habe gestern versucht, den folgenden Code in ein Programm einzufügen. VBA hat einen Fehler aufgerufen. Ich vermute, es liegt an den doppelten Anführungszeichen in der Formel. Ich googelte, und alle Ergebnisse, die ich fand, gaben nur die Grundregeln für das Einfügen von Formeln an, aber keiner erklärte, wie man Zitate in die Umgebung bringt.
(Vorher gab es eine With-Anweisung, Pivot ist ein Arbeitsblattname.)
.Range("A2").Formula = "=IF(Pivot!A5="",A1,Pivot!A5)"
Jede Hilfe wird sehr geschätzt. Vielen Dank!
Nimm im Zweifelsfall ein Makro auf, wenn es erlaubt ist
Versuche dies
.Range("A2").Formula = "=IF(Pivot!A5="""",A1,Pivot!A5)"
Verwenden Sie Chr(34)
anstelle eines doppelten Anführungszeichens.
Also in deinem Fall:
.Range("A2").Formula = "=IF(Pivot!A5=" & Chr(34) & Chr(34) & ",A1,Pivot!A5)"
möglicherweise müssen Sie Folgendes tun:
.Range("A2").Formula = "=IF(Pivot!A5="& """" & """" & ",A1,Pivot!A5)"