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!
|