[Excel] Neue Zeile einfügen lassen und Formeln übernehmen

[gnx]

Guten Morgen,

ich möchte gern, ein Button erstellen, der mir nach einem Wort (Suche -> "Wort") x Zellen einfügt. Schön und gut, das habe ich auch schon:

Code:

Sub test()

Dim z As Variant
z = Application.InputBox _
("Geben Sie die Anzahl der einzufügenden Zeilen ein.", _
"Zeilen einfügen", "6", , , , , 2)
For x = 1 To z
Cells.Find(What:="Ende", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Selection.EntireRow.Insert
Next x

End Sub

Jetzt möchte ich allerdings, dass er die Formeln, welche über den eingefügten Zeilen stehen, mit übernimmt. Habe leider keinerlei Ahnung wie ich das realisieren kann. :/

Wäre für Hilfe sehr dankbar.

Liebe Grüße
Moritz

 

[tombe]

Das hier müsstest du halt noch für deine Bedürfnisse entsprechend anpassen:

'Zelle A1 wird kopiert
ActiveSheet.Range("A1").Copy
'und in Zelle A2 eingefügt
ActiveSheet.Range("A2").Insert

 

[gnx]

Danke - habs jetzt etwas anders gelöst.
Für jeden der es evtl. zukünftig mal braucht, hier die Lösung:

Sub test()

Dim z As Variant
z = Application.InputBox _
("Geben Sie die Anzahl der einzufügenden Zeilen ein.", _
"Zeilen einfügen", "", , , , , 2)
For x = 1 To z
Cells.Find(What:="Ende", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
Selection.EntireRow.Insert

x_end = Selection.Address
Selection.End(xlUp).Select
Selection.Copy
Range(Selection.Address, x_end).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Next x

End Sub

Liebe Grüße
Moritz