Supportnet / Forum / Tabellenkalkulation
Zeilen einfügen
Frage
Hallo zusammen!
Füge mit diesem Befehl eine Zeile unterhalb der ausgewählten ein.
Sub SelectCopyWert()
Dim zeile As Variant
Rows(Selection.Row + 1).EntireRow.Insert
zeile = Rows(Selection.Row)
Rows(Selection.Row + 1) = zeile
End Sub
Jetzt ist mein Problem, dass zwar der Inhalt kopiert wird, aber die Formeln in den einzelnen Zellen nicht kopiert werden. Wie kann ich das machen?
Gruß
Jockel
[*][sup][i]
*Threadedit* 30.11.2008, 16:52:26
Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/faqsthread/840]FAQ 2, #3[/url][/u].[/i][/sup]
Antwort 1 von fedjo
Hollo Jockel,
versuch mal den Code.
Gruß
fedjo
Sub SelectCopyWert()
Dim zeile As Variant
Rows(Selection.Row).Copy
Rows(Selection.Row + 1).EntireRow.Insert
Application.CutCopyMode = False
End Sub
versuch mal den Code.
Gruß
fedjo
Sub SelectCopyWert()
Dim zeile As Variant
Rows(Selection.Row).Copy
Rows(Selection.Row + 1).EntireRow.Insert
Application.CutCopyMode = False
End Sub