Zeileneinfügung mit autom. Formatiereungsübernahme

Hallo,
ich habe eine tolle Tabelle gebaut, in der einige IF-Formeln und Bezüge auf andere Blätter des Workbooks drin sind. Sie ist für meinen Chef, der später gerne Zeilen einfügen will, aber möglichst so, dass die neue Zeile gleich die Formel der darüber liegenden Zellen hat. Er will nicht kopieren und einfügen...
Ich würde das Sheet am liebsten schützen, damit er mir meine Formeln nicht überschreibt, aber dann kann er keine Zeilen einfügen. Ich habe auch schon an ein Makro gedacht, aber das kann ich ja auch nicht so allgemein halten, dass das überall funktioniert, wo Zeilen eingefügt werden sollen. Hat jemand eine Idee für mich?

Hallo Alexandra, wenn es nur um die Formeln geht, kannst Du mit folgendem Makro vor einer beliebigen horizontalen Markierung eine Kopie einfügen und in dieser alles außer den Formeln löschen. Sub Makro1() Dim c As Range If Selection.Rows.Count > 1 Then Exit Sub Selection.Copy Selection.Insert Shift:=xlDown For Each c In Selection If c.HasFormula = False Then c.ClearContents Next End Sub Gruß Coach