Gruppe
Datei
Bereich
Speichern
Thema
Arbeitsmappe mit absoluten Werten unter neuem Namen speichern
Problem
Wie kann ich in der aktiven Arbeitsmappe alle Zellebezüge in absolute Werte umwandeln und die Arbeitsmappe unter einem anderen, durch ein InputBox abzufragendem Namen speichern?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Speichern()
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Application.DefaultFilePath & "\test.xls"
For Each wks In Worksheets
With wks.UsedRange
.Value = .Value
End With
Next wks
ActiveWorkbook.SaveAs sFile
Application.ScreenUpdating = True
End Sub