Gruppe
Datei
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?
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