Gruppe
Allgemein
Problem
Wie kann ich alle Formeln und Links aller Tabellenblätter einer Arbeitsmappe in Werte umwandeln und die Arbeitsmappe dann unter einem neuen Namen speichern?
StandardModule: basMain
Sub SaveValues()
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Application.DefaultFilePath & "\Test.xls"
sFile = InputBox( _
prompt:="Name der neuen Datei:", _
Default:=sFile)
If sFile = "" Then Exit Sub
For Each wks In Worksheets
wks.UsedRange.Cells.Copy
wks.UsedRange.PasteSpecial Paste:=xlValues
Next wks
ActiveWorkbook.SaveAs sFile
Application.CutCopyMode = False
Range("A1").Select
End Sub