Eine Tabelle soll in eine neue Arbeitsmappe kopiert werden,
allerdings ohne Formeln, sondern nur mit Werten.
Sub Tabelle_kopieren()
Dim Zelle As Range
Set Quelle = ActiveWorkbook
Workbooks.Add
Set Ziel = ActiveWorkbook
For Each Zelle In Quelle.Worksheets(„Tabelle1″).UsedRange
Ziel.Worksheets(„Tabelle1″).Cells(Zelle.Row, _
Zelle.Column).Value = Zelle.Value
Next Zelle
End Sub
Quelle: http://www.schmittis-page.de/
