|
Hallo liebe Leute,
im Zuge eines VBA-Codes soll eine Formel in das Exceldatenblatt eingefügt werden:
Dim strPfad As String
Dim bytSpalte, bytZeile As Byte
bytZeile = 9 '9
bytSpalte = 5 'E
Sheets("Daten").Cells(bytZeile, bytSpalte).FormulaLocal = strPfad1
Die entsprechende Funktion ist in dem String "strPfad1" gespeichert. Mit diesem Befehl klappt es auch, die Funktion einzufügen und sie liefert auch an sich den richtigen Wert, zeigt aber #WERT an. Wenn ich dann im entsprechenden Arbeitsblatt in die eingefügte Formel gehe und Strg+Shift+Enter drücke, dann verschwindet auch #WERT und der Wert wird korrekt dargestellt.
Das Strg+Shift+Enter drücken möchte ich mir gerne ersparen und habe die letzte Zeile des obigen Codes daher abgeändert in:
Sheets("Daten").Cells(bytZeile, bytSpalte).FormulaArray = strPfad1
Beim Ausführen des Codes wird mir mit dieser Veränderung aber angezeigt "Laufzeitfehler 1004. Die FormulaArray-Eigenschaft des Range-Objektes kann nicht festgelegt werden".
Bin leider kein VBA-Pro und kann mit dieser Fehlermeldung daher leider nichts anfangen.
Vielen, vielen Dank vorab für eure Hilfe!
|