ich füge nachfolgende Formeln via Makro in ein Sheet ein.
Mein Problem ist, dass die erste Formel vermutlich als Text geschrieben wird, der Rest aber richtig.
An was könnte das liegen?
Sub Formeln_übertragen()
Dim i as long
i = Sheets("Seite 1").Cells(Rows.Count, "C").End(xlUp).Row + 1
'In Spalte C die Formel eintragen
Cells(i, "C").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",VLOOKUP(RC[-1],'3.Ref - 3.1.Komponenten'!R8C[ _
-2]:R5000C[2],3,FALSE))"
'In Spalte I die Formel eintragen
Cells(i, "I").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",'2.Bemerkungen'!R40C17,'2.Bemerkungen'!R39C17)"
'In Spalte J die Formel eintragen
Cells(i, "J").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""","""",IF(R[-3]C[-1]=1,3,IF(R[-3]C[-1]=1.33,4,IF(R[- _
3]C[-1]=1.67,5,IF(R[-3]C[-1]=2,6,"""")))))"
'In Spalte K die Formel eintragen
Cells(i, "K").Activate
ActiveCell.FormulaR1C1 = "=IF(RC[-10]="""","""",RC[-10])"
End Sub
Danke schon mal jetzt für eure Hilfe.Gruß
A.