18.06.2017, 21:59
(Dieser Beitrag wurde zuletzt bearbeitet: 18.06.2017, 22:26 von Kuwer.
Bearbeitungsgrund: Smilies ausgeschaltet
)
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
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
