Moin,
ich habe folgendes Problem.
Mit folgendem Teil eines Makros füge ich drei Zeilen samt der darin enthaltenen Formeln in einen beliebigen markierten Bereich meiner Tabelle ein.
Aktive = ActiveCell.Row
Name = InputBox("Name der Baugruppe:")
ActiveSheet.Cells(13, 2).Value = Name
If Name = "" Then Exit Sub
Rows("13:15").Copy
Rows(ActiveCell.Row & ":" & ActiveCell.Row + 1 - 1).Insert
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + 1 - 1, ActiveCell.Column)).PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
Jedoch wird aus der letzten Zelle (in diesem Fall "CR") die Formel nicht mitgenommen (relative Formeln!!). Ansonsten klappt das aber in für alle anderen Zellen! wie kann das sein? bin recht ratlos.
Danke für die Hilfe.
Christian