ich moechte von einer Datei eine Kopie speichern, in der nicht mehr die Formeln und Bezuege stehen, sondern nur noch die Ergebnisse als Werte.
Kann mir hier jemand helfen?
Danke und Gruss,
Marcus
Option Explicit
Sub KopieMitWerten()
Dim wks As Worksheet
Dim strFile As String
strFile = "F:\Temp\kopie.xls" '< ---anpassen
On Error GoTo ERRORHANDLER
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ThisWorkbook.Sheets.Copy
With ActiveWorkbook
For Each wks In .Worksheets
wks.UsedRange = wks.UsedRange.Value
Next
.SaveAs strFile
.Close
End With
ERRORHANDLER:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub