Bestimmte Formeln durch Werte ersetzen
03.03.2005 16:29:58
Rudi
Ich habe eine Prozedur gefunden, mit welcher ich sämtliche Formeln einer Datei durch Werte ersetzen kann:
Sub AbsWerteSpeichern()
Dim wks As Worksheet
Dim sFile As String, filnam As String
Application.ScreenUpdating = False
filnam = InputBox("Wie soll das neue File heissen?", "Nur Werte abspeichern", ActiveWorkbook.Name)
sFile = Application.DefaultFilePath & "\" & filnam
For Each wks In Worksheets
With wks.UsedRange
.Value = .Value
End With
Next wks
ActiveWorkbook.SaveAs sFile
Application.ScreenUpdating = True
End Sub
Nun möchte ich aber nur gewisse Formeln ersetzen. Konkret: Wenn die Formel mit "=FRANGO" beginnt, soll ersetzt werden. "Normale" Formeln, wie z.B. "Summe" etc. (die jedermann zugänglich sind), sollen jedoch beibehalten werden.
Wie erreiche ich das?
Danke für die Hilfe!
Gruss Rudi
Anzeige