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

^{*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 FAQ 2, #3.}