PDA

Vollständige Version anzeigen : Formel in zelle schreiben


vbanewcomer
01.08.2012, 15:40
Hallo Gemeinde,
kann mir mal bitte jemand sagen weshalb folgende Codezeile einen Fehler verursacht ?!

Laufzeitfehler 1004
Anwendungs- oder Objektdefinierter Fehler

Die Codezeile wird markiert
ThisWorkbook.Worksheets("Einnahmen").Range("C142").Formula = "=RUNDEN(E142/2;2)"


Es soll eigentlich nur ein Betrag in eine Zelle geschrieben werden.
Da ich für jeden neuen EIntrag extra eine Zeile einfügen lasse, soll die Berechnung der MwSt mittels Formel erfolgen.
Dies soll mit o.g. Code eigentlich realisiert werden was aber nicht geht :-(
Die eigentliche Codezeile die ich hatte war
ThisWorkbook.Worksheets("Einnahmen").Range(cells(lstrow, 3)).Formula = "=RUNDEN(E142/1,19;2)"

aber auch hier der gleiche fehler

hary
01.08.2012, 15:48
Hallo
Formula braucht Englisch.
nimm:
.FormulaLocal = "=RUNDEN(E142/2;2)"
gruss hary

vbanewcomer
01.08.2012, 15:51
ja dein Beispiel funktioniert,
aber
ThisWorkbook.Worksheets("Einnahmen").Range(Cells(lstrow, 3)).FormulaLocal = "=RUNDEN(E142/2;2)"


funktioniert nicht !
Das ist das was ich nicht verstehe ( FormulaLocal hatte ich auch eigentlich drinnen, sorry )

hary
01.08.2012, 16:00
Hallo
Sry, hatte ich uebersehen. Mach's ohne Range.
Mit Cells gibtst du schon die Zelle vor.
ThisWorkbook.Worksheets("Einnahmen").Cells(lstrow, 3).FormulaLocal = "=RUNDEN(E142/2;2)"
gruss hary

vbanewcomer
01.08.2012, 16:02
das war es :-(
manchmal kommt man auf die einfachsten Dinge nicht

vielen Dank

EarlFred
01.08.2012, 16:04
- erledigt -