ich hab da mal ne Frage. wie kann ich eine Neue Zeile mit allen Formeln und Formaten der oberen Zeile nach unten einfügen. die Zeile sollte ab A6 nach Bedarf über einen Button eingefügt werden. bitte um Hilfe.
mfg Jupp
Sub Makro1()
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
End Sub