ich war heute morgen schon mal da. Leider hat es doch nicht ganz so geklappt wie ich mir das erhofft habe.
Es geht um folgendes ich will eine Formel in die Zellen unter der ActiveCell reinkopieren.
Mit dieser Formel hier klappt das auch ganz gut.
Const formel As String = "=WENN(SUMME(F3:H3)<0,3125;0,3125-SUMME(F3:H3);0)~f~"
For row = 0 To maxRow Step 1
ActiveCell.Offset(row, 0).FormulaLocal = formel
Next row
Aber das dummer ist ich brauche in der Zeile 3 die Formel:
"~f~=WENN(SUMME(F3:H3)<0,3125;0,3125-SUMME(F3:H3);0)~f~"
Und in der Zeile 4 die Formel:
"~f~=WENN(SUMME(F4:H4)<0,3125;0,3125-SUMME(F4:H4);0)"
usw.
Ist das auch irgendwie zu bewerkstelligen?
mfg achim