Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Formeln und Links in Werte wandeln

Gruppe

Bearbeiten

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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