Range("L2").FormulaLocal = "=WENN(B2="""";"""";WENN(M2<=(F2*H2)/4;"";1))"
Range("L2").AutoFill Destination:=Range("L2:L" & letzteZeile)
Ich habe folgende Formel und kann Sie nicht über VBA ins Sheet einspielen, weil er sich am soll leer sein aufhängt, mit 0 läuft der Code prima durch, nur dann
funktioniert die Weiterverrechnung nicht mehr. Und dass wäre ein irrsinniger Aufwand dann alles zu ändern.
Gibt es dafür eine Lösung, das ich die Formel trutzdem so lassen kann.
lg
Sandra
|