Erwarte Anweisungsende
16.06.2016 09:06:26
Henry
ich habe folgenden VBA mit Rekorder aufgenommen und trotzdem funktioniert er nicht.
Es handelt sich um eine Formel mit verketten. Wenn ich diese in die Zelle kopiere geht es. Nur mit VBA und aufnehmen scheint es zu hapern. Hat jemand einen Tipp woran das liegt ?
VBA:
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-22]0,RC[-19]=0),CONCATENATE(""Lagertage"","" "",""="","" "",RC[-78],"" "" _
,""abzgl."","" "",""Freizeit"","" "",""="","" "",RC[-26],"" "",""Tage"","" "",""/"","" "",""@"", RC[-22]/RC[-23],"" "",""pro Tag"","" "",""/"","" "",R1C[-73],"" "",RC[-73],"" "",""/"","" "",R1C[-71],"" "",RC[-71],"" "",),IF(AND(RC[-22]0,RC[-19]0),CONCATENATE(""Lagertage"","" ""& _
""" "",RC[-78],"" "",""abzgl."","" "",""Freizeit"","" "",""="","" "",RC[-26],"" "","" _
Tage"","" "",""/"","" "","" "",RC[-23],"" "",""Tage"","" "",""@"",RC[-22]/RC[-23],"" "",""pro Tag"","" "",""&"","" "",RC[-20],"" "",""Tage"","" "",""@"","" "",RC[-19]/RC[-20],"" "",""pro Tag"","" "",""/"","" "",R1C[-73],"" "",RC[-73],"" "",""/"","" "",R1C[-71],"" "",RC[-71],"" "",),""& _
"?z??T??
Formel:
=WENN(UND(BI50;BL5=0);VERKETTEN("Lagertage";" ";"=";" ";E5;" ";"abzgl.";" ";"Freizeit";" ";"=";" "; BE5;" ";"Tage";" ";"/";" ";"@"; BI5/BH5;" ";"pro Tag";" ";"/";" ";J$1;" ";J5;" ";"/";" ";L$1;" ";L5; " ";);WENN(UND(BI50;BL50);VERKETTEN("Lagertage";" ";"=";" ";E5;" ";"abzgl.";" ";"Freizeit";" "; "=";" ";BE5;" ";"Tage";" ";"/";" ";" ";BH5;" ";"Tage";" ";"@";BI5/BH5;" ";"pro Tag";" ";"&";" ";BK5; " ";"Tage";" ";"@";" ";BL5/BK5;" ";"pro Tag";" ";"/";" ";J$1;" ";J5;" ";"/";" ";L$1;" ";L5;" ";);""))
GrussHenry