Office: Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen

Mik_Don · 20. April 2013

Hallo,
ich möchte eine Zeile einfügen und dann eine Formel von der Zeile vorher kopieren- leider geht .insert nicht, da eine Zelle eingefügt wird. .paste geht leider auch nicht! wie müsste der code lauten, dass ich die formel richtig einfügen kann?

Range("A10").End(xlDown).Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(-1, 5).Copy
ActiveCell.Offset(0, 5).Insert

Gruß Michael

:)

hary · 21. April 2013

Moin Mike
Ungetestet.
Code:

Sub Kop()
Dim letzte As Long
letzte = Range("A10").End(xlDown).Row
Rows(letzte + 1).Insert
Cells(letzte, 5).Copy
Cells(letzte + 1, 5).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Jotge · 21. April 2013

Hallo Mik_Don

anbei mal ne alte Auswertung. Sie fügt am Ende der Tabelle eine Zeile ein und kopiert dann den Bereich der Spalten E bis H in die neu eingefügte Zeile.
Den Code musst Du Dir für Deine Tabelle noch anpassen. Vieleicht hilfts weiter.

Auf gutes Gelingen.

Gruß
JG.

Hasso · 21. April 2013

Hallo Michael, Code:

Option Explicit

Sub FormelKopieren()

Dim intLetzteZeile As Integer

intLetzteZeile = Range("A10").End(xlDown).Row + 1

Range("A10").End(xlDown).Offset(1, 0).EntireRow.Insert
Cells(intLetzteZeile - 1, 5).Copy Destination:=Cells(intLetzteZeile, 5)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mik_Don · 21. April 2013

danke, funktioniert
aber wie müsste jetzt der code mit 2 kopierten zellen aussehen- in diesem fall wäre es noch die spalte 11!?

Gruß Michael

Hasso · 21. April 2013

Hallo Michael,

Code:

Option Explicit

Sub FormelKopieren()

Dim intLetzteZeile As Integer

intLetzteZeile = Range("A10").End(xlDown).Row + 1

Range("A10").End(xlDown).Offset(1, 0).EntireRow.Insert
Cells(intLetzteZeile - 1, 5).Copy Destination:=Cells(intLetzteZeile, 5)
Cells(intLetzteZeile - 1, 11).Copy Destination:=Cells(intLetzteZeile, 11)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das hättest du eventuell auch selbst herausbekommen können, oder?

Mik_Don · 22. April 2013

Danke euch - funktioniert prima

Gruß Michael

Office: Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen

Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen

Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen

Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen

Zeile einfügen und Formel von Zeile drüber aus Zelle kopieren und einfügen - Similar Threads - Zeile einfügen Formel

Zeilen in Excel automatisch alle paar Zeilen einfügen

Einfügen Neuer Zeile mit Formatierung und Formel

Formel in jede zweite Zeile einfügen

Excel: Zeile einfügen und Formel von vorherigen übernehmen

Formel automatisch nur in jede dritte Zeile einfügen

Zeilen einfügen: Formel wird mal übernommen, mal nicht

Zeile einfügen und Automatisch Formel einfügen?