Sub Formel()
Range("J7").Formula = "=IF(A7="""",0,IF(ISERROR(MATCH(A7,$W$64:$W$81,0)),IF(AND(C7="""",D7=0,E7="""",F7=0,L7=0),0,IF(L7=""Pflegefreistellung"",0,IF(L7=""Krank"",0,IF(L7=""Urlaub"",0,IF(H7G7,H7-G7)))))),""""))"
End Sub
'Schreibe ins Direktfenster: ?activecell.formula und drücke Enter.
'?ActiveCell.Formula
'=IF(A7="",0,IF(ISERROR(MATCH(A7,$W$64:$W$81,0)),IF(AND(C7="",D7=0,E7="",F7=0,L7=0),0,IF(L7="Pflegefreistellung",0,IF(L7="Krank",0,IF(L7="Urlaub",0,IF(H7G7,H7-G7)))))),""))
'Danach die Formel etwas nachbearbeiten. Das war es schon.
Gruß Jürgen
AW: Die Formel im Direktfenster umwandeln ...
Heinz
Du kannst im Direktfenster auch ...
Backowe
Hallo Heinz,
... ?activecell.formular1c1 benutzen.
Range("J6:J35").FormulaR1C1 = "=IF(RC[-9]="""",0,IF(ISERROR(MATCH(RC[-9],R64C23:R81C23,0)),IF(AND(RC[-7]="""",RC[-6]=0,RC[-5]="""",RC[-4]=0,RC[2]=0),0,IF(RC[2]=""Pflegefreistellung"",0,IF(RC[2]=""Krank"",0,IF(RC[2]=""Urlaub"",0,IF(RC[-2]RC[-3],RC[-2]-RC[-3])))))),""""))"
Gruß Jürgen
AW: Du kannst im Direktfenster auch ...
Heinz
Hallo Jürgen
Recht herzlichen DANK
Gruß
Heinz
AW: Du kannst im Direktfenster auch ...
Heinz
Guten morgen
Bekomme leider immer Laufzeitfehler !
Heinz
AW: Danke-Hab es geschaft OwT.
Heinz
|