Hallo Zusammen,

ioch habe das folgende Problem: Ich habe von einem Bekannten das folgende VBA bekommen und es funktioneirt recht gut. Das Ziel ist es den Inhalt mehrere Arbeitsblätter fortlaufend untereinander zusammen zu tragen. Mein Problem ist jedoch jetzt, dass NUR die Werte kopiert werden sollen und nicht die Formeln. Kann mir jemand helfen?

Sub ZusammenFuehren()

Dim intSheets As Integer
Dim lngLastRow As Long

For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1
    Sheets(intSheets).UsedRange.Copy
    lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1
    Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count).Cells(lngLastRow, 1)
Next intSheets
Application.CutCopyMode = False
End Sub

Vielen Dank!