Eintragen einer Formel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin!
Da hab ich mich wohl zu früh gefreut.


Cells(4, 9).Formula = "=(50 / " & Ergebnis & "- 3,70) / 0,0069"

funzt leider nicht! Egal ob ich als Dezimalzeichen Punkt oder Komma nutze.
Wenn ich die Formel manuell in die Zelle eintrage und die Variable "Ergebnis" weglasse, also direkt einen Zahlenwert eintrage, dann klappt es. Also stimmt doch irgendwas mit dem Übergeben der Variablen noch nicht. Ich hab die im Editor mal als Überwachungsausdruck eingetragen und da sehe ich, dass der Wert aus der Zelle richtig übernommen wird. Wäre ja auch merkwürdig wenn nicht ;-)
Um auszuschließen, dass das an der Variablen liegt, habe ich jetzt einen Umweg gewählt und den String mit der Formel einer anderen Variablen zugewiesen:


Ergebnis = Cells(4, 8)
test = "=(50 / " & Ergebnis & "- 3,70) / 0,0069"
MsgBox test
Cells(4, 9).Formula = test

Die msgbox liefert dann "=(50 / 11,8 - 3,70) / 0,0069" aus, also genau das erwartete und benötigte Ergebnis.
Das wäre auch genau die Formel. Aber:
cells(4,9).Formula=Test
bringt wieder den Fehler!
Grummel....

nochmal:
wenn du mit .Formula eine Formel in eine Zelle schreibst, müssen die Dezimalzahlen mit dem Punkt als Dezimalzeichen geschrieben werden.
wenn du Kommas als Dezimalzeichen in VBA haben willst, musst du .FormulaLocal einsetzen:
also entweder:


Cells(4, 9).FormulaLocal = "=(50 / 11,8 - 3,70) / 0,0069"

oder


Cells(4, 9).Formula = "=(50 / 11.8 - 3.70) / 0.0069"

.Formula = Formel in englischer Schreibweise mit englischen Funktionnamen, Komma als Parametertrennzeichen und Punkt als Dezimalzeichen
.FormulaLocal: Formel in der Schreibweise der Ländereinstellung, so wie du sie in der Zelle siehst, dh in Deutschland mit deutschen Funktionsnamen, Semikolon als Parametertrennzeichen und dem Komma als Dezimalzeichen.
wenn du hier die Variable Ergebnis in die Formel einbindest, muss der Zahlenwert aus der Zelle in einen Text gewandelt werden. VBA macht das automatisch, verwendet aber vermutlich die deutsche Schreibweise hierfür, dh mit Komma.
also dann entweder:


Cells(4, 9).FormulaLocal = "=(50 / " & Ergebnis & " - 3,70) / 0,0069"

oder:


Cells(4, 9).Formula = "=(50 / " & Replace(Ergebnis, ",", ".") & " - 3.70) / 0.0069"

wobei ich es hier für sinnvoller halten würde, statt der Variable Ergebnis die Zellreferenz in der Formel zu verwenden.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread