Clever-Excel-Forum

Hallo Zusammen,

ich habe ein bestehenden Code, der mir die Daten von Tabelle Daten in Tabelle Archiv untereinander kopiert. Allerdings auch die Formeln, weshalb im Archiv nur quatsch angezeigt wird. Kann mir jemand sagen wie ich den Code anpassen muss, dass da nur Werte kopiert werden ? :D

Sub Kopieren()

Dim shSource, shDest As Worksheet
Set shSource = Sheets("Daten")
Set shDest = Sheets("Archiv")
shSource.Range("A2:E100").Copy Destination:= _
shDest.Cells(Cells(shDest.Rows.Count, 2).End(xlUp).Row + 1, 1)
End Sub

Vielen Dank im Voraus

LG

Hallo,

Code:
Sub Kopieren()

  Sheets("Archiv").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(99, 5).Value = Sheets("Daten").Range("A2:E100").Value

End Sub

Rejorable

Kuwer