|
so bekomme ich den Fehler (Laufzeitfehler 424)
Range("P2").Select
ActiveCell.FormulaR1C1.FormulaLocal = _
"=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
|