|
Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-2]=""M"",RC[5]=""WAHR""),(LEFT(RC[-10],RC[2])*1000000),IF(AND(RC[-2]=""B"",RC[5]=""WAHR""),(LEFT(RC[-10],RC[2])*1000000000),IF(RC[-2]=""B"",(LEFT(RC[-6],RC[2])*1000000000),IF(AND(RC[-2]=""K"",RC[5]=""WAHR""),(LEFT(RC[-10],RC[2])*1000),IF(RC[-2]=""K"",(LEFT(RC[-10],RC[2])*1000),IF(RC[-2]=""M"",(LEFT(RC[-6],RC[2])*1000000),IF(RC[-2]=""B"",(LEFT(RC[-6],RC[2" & _
"00000),IF(RC[-2]=""%"",(LEFT(RC[-6],RC[2])*1),IF(ISERROR(RC[-8]),RC[-10],IF(ISNUMBER(RC[-8]),RC[-6]))))))))))"
Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P23")
Range("P2:P23").Select
Das hier habe ich gerade "frisch" aufgezeichnet. Leider wieder der 1004 Excel Fehler.
Ich nutze Excel 2013, falls das bei der Fehlersuche helfen sollte!
|