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.
Mir wurde auch schon eine Lösung angeboten, die leider nicht funktioniert.
Hallo Christian,
irgendwie umständlich. ActiveCell.Row ist identisch mit ActiveCell.Row +1 -1
Vielleicht ist auch ActiveCell.Column zu klein.
Siehe
Rows("13:15").Copy
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Dies führt aber auch nicht zum erfolg. Die hinterlegte Formel ist extrem lang. Hat das damit was zu tun? die Blattsperrung ist aber aufgehoben.
ist irgendwie merkwürdig
Danke
Christian