Bestimmte Formeln durch Werte ersetzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Bestimmte Formeln durch Werte ersetzen
von: Rudi
Geschrieben am: 03.03.2005 16:29:58
Hallo
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
Bild

Betrifft: AW: Bestimmte Formeln durch Werte ersetzen
von: u_
Geschrieben am: 03.03.2005 16:41:47
Hallo,
dann musst du jede Formel einzeln testen

Sub test()
  Dim c As Range, wks As Worksheet
  For Each wks In Worksheets
    For Each c In wks.UsedRange.SpecialCells(xlCellTypeFormulas)
      If c.FormulaLocal Like "=FRANGO*" Then c.Value = c.Value
    Next c
  Next wks
End Sub

Gruß
Bild

Betrifft: AW: Bestimmte Formeln durch Werte ersetzen
von: Rudi
Geschrieben am: 03.03.2005 16:45:17
Vielen Dank nochmals!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Formeln durch Werte ersetzen"