Formelproblem
14.03.2005 16:32:14
Nadine
seit Stunden grüble ich schon über diesem Problem und komme zu keiner Lösung. Ich hoffe Ihr könnt mir helfen.
Und zwar möchte ich per VBA in eine Zelle eine Formel eingeben. Damit sollen Gebühren berechnet werden. Früher hatte ich die Gebühren in der Formel stehen, doch nachdem diese jetzt geändert werden sollen, dachte ich, es wäre besser die Werte als Konstanten vorzugeben. Dann könnte ich sie beim nächsten Mal schneller ändern.
Doch irgendwie hat das leider nicht geklappt. Ich bekomme immer die Fehlermeldung ?Anwendungs- oder objektdefinierter Fehler?
Hier ist der Code:
Public Const GebuehrHausschlachtung As Double = 2.5
Public Const GebuehrBSE24 As Double = 35
Public Const GebuehrBSE30 As Double = 29
Public Const GebuehrEinRind As Double = 24
Public Const GebuehrZweiRind As Double = 19
Public Const GebuehrSechsRind As Double = 17
Sub Makro1()
Cells(5, 5).FormulaR1C1 = "=IF(RC[-4]=1," & GebuehrEinRind & ",IF(RC[-4]<6,RC[-4]*" & GebuehrZweiRind & ",RC[-4]*" & GebuehrSechsRind & "))+RC[-3]*" & GebuehrHausschlachtung & "+RC[-2]*" & GebuehrBSE24 & "+RC[-1]*" & GebuehrBSE30 & ""
End Sub
Habt Ihr vielleicht eine Idee, wo der Fehler liegt?
Viele Grüße
Nadine