Hallo zusammen,
die Formel aus der letzten Spalte soll in die nächste freie kopiert werden , wobei in der Spalte vorher dann nur die Werte beibehalten werden sollen.
Mit dem u.g. Code klappt es leider nicht so ganz. Habt ihr ein Idee? Danke.
Sub copy()
Dim lngLetzteSpalte As Long
lngLetzteSpalte = Sheets("Test").Cells(4, Columns.Count).End(xlToLeft).Column
Sheets("Test").Range("C4:C10").Copy Destination:=Sheets("Test").Cells(4, lngLetzteSpalte + 1)
With Sheets("Test").Range("C4:C10").Offset(0, -1)
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
|