wie müsste der Code aussehen wenn ich eine Zeile markiere und eine neue Zeile einfüge, dabei aber die Formeln von oben übernehme?
Selection.Insert Shift:=xlDown
und weiter?Gruß
Dietz
Selection.Insert Shift:=xlDown
und weiter?
Sub Kopieren()
Dim lngZeile As Long
Selection.Insert Shift:=xlDown
Selection.Offset(-1).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
lngZeile = Selection.Row
Union(Range(Cells(lngZeile, 3), Cells(lngZeile, 4)), Cells(lngZeile, 6), _
Range(Cells(lngZeile, 8), Cells(lngZeile, 10)), Cells(lngZeile, 12), _
Range(Cells(lngZeile, 17), Cells(lngZeile, 20))).ClearContents
End Sub