mit folgendem Code kann ich per Makro eine Zeile einfügen und die Formel der darüberliegenden Zelle quasi "herunterziehen". Dort wo keine Formeln stehen sondern nur Werte oder leere Zellen wird nichts gemacht. Bis jetzt wird die Formel nur in die neu eingefügte leere Zelle eingefügt.
Ich möchte, dass die Formeln bis in Zeile 1000 quasi durch "herunterziehen", so das die Bezüge weiter stimmen, eingefügt werden.
hier der Code:
Sub Formeln_uebernehmen()
ActiveCell.EntireRow.Insert
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0)
Next
End Sub
Kann mir jemand helfen?Danke
Grüße aus Berlin