Thema: Nur den Inhalt kopieren | Herbers Excel-Forum

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?

Sub test()
Dim wsT As Worksheet
Dim wsS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False
Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wsT.Name = "Zusammenführung"
For i = 3 To Worksheets.Count - 1
Set wsS = Worksheets(i)
RowsT = wsT.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsS.Range("I4:M16").Copy Destination:=wsT.Cells(RowsT, 1)
Next i
Application.ScreenUpdating = True
End Sub

Hat jemand eine Idee und kann helfen?
Vorab vielen Dank
Grüße

Hallo
Probiers einfach so
wsS.Range("I4:M16").Copy
wsT.Cells(RowsT, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Gruss Rainer

Hallo Ramses,
funktioniert einwandfrei. Prima.
Vielen Dank und eine schönen Abend noch.
Grüße