Makro - neue Zeile einfügen mit Formeln
25.02.2003 11:38:52
Pädi
Ich möchte das Makro unten so abändern, dass die es den Text der Spalte A-F löscht und von der Spalte G-xxx die Formeln übernimmt! Momentan macht es das nur mit der Spalte A!!
Könnt ihr mir bitte helfen!!
Besten Dank!
Pädi
Sub Kopieren_mit_Formeln()
Dim lZeile As Long
lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows(lZeile - 2).Copy
Cells(lZeile - 1, 1).Insert Shift:=xlDown
Application.CutCopyMode = False
' Eingabezellen löschen
Cells(lZeile - 1, 1) = ""
End Sub