Hilfe bei Excel-Formel in VBA

[peacescorer]

Hi Comunity!

Vielleicht könnt ihr mir helfen!

Folgende Excel-Formel habe ich mittels Makro-Recorder in VBA aufgenommen. Aus irgendeinem Grund geht sie jedoch nicht.

Sub berechnen()
Range("K8:DF1000").Formula = _
"=IF(Erfassung!RC=""x"",IF(R6C=""m2"",(RC6+R1C)*RC7*RC8,IF(R6C=""ml"",(RC6+R1C+RC7+R2C)*RC8,IF(R6C=""Stk."",RC8))),"""")"
End Sub


Excel-Formel:
=WENN(Erfassung!K8="x";WENN(K$6="m2";($F8+K$1)*$G8*$H8;WENN(K$6="ml";($F8+K$1+$G8+K$2)*$H8;WENN(K$6="Stk.";$H8)));"")

Beispieldatei im Anhang!

Vielen Dank für euer Feedback!

Christian

[Gast 123]

Hallo

die Formel klappt bei mir bis auf eine Zellei aber Formula muss anders geschrieben werden, als FormulaLocal    
Range("K8:DF1000").FormulaLocal =

mfg  Gsdt 123

[Kuwer]

Hallo Christian,

sollte eigentlich so heißen:

Range("K8:DF1000").FormulaR1C1 = _
"=IF(Erfassung!RC=""x"",IF(R6C=""m2"",(RC6+R1C)*RC7*RC8,IF(R6C=""ml"",(RC6+R1C+RC7+R2C)*RC8,IF(R6C=""Stk."",RC8))),"""")"

Gruß Uwe

[peacescorer]

Hallo Uwe!

Klappt perfekt! Danke!!!

Gruß Christian