ich möchte mit Hilfe eines Makros Formeln in Spalten E und J (beide beginnend ab Zeile 2 und bis zum Ende der Tabelle) einfügen.
Hier das Makro, wie es gerade aussieht und mitr natürlich einen Fehler meldet :-)
Sub Formeln()
Range("E2:E" & Rows.Count).Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(ISERROR(VLOOKUP(RC[-2],Stammdaten!R2C1:R148C2,2,0)),ISERROR(VLOOKUP(RC[-1],Stammdaten! _
R2C1:R148C2,2,0))),"""",IF(ISERROR(VLOOKUP(RC[-2],Stammdaten!R2C1:R148C2,2,0)),VLOOKUP(RC[-1],Stamdaten!R2C1:R148C2,2,0),VLOOKUP(RC[-2],Stammdaten!R2C1,R148,C2,2,0)))"
Range("J2:J" & Rows.Count).Select
Active.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],Stammdaten!R2C6:R99C7,2,0)),"""",VLOOKUP(RC[-1],Stammdaten!R2C6: _
R99C7,2,0))"
End Sub
Ihr könnt mir doch sicher helfen?!