ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen()
out = "15200" 'zu ersetzender String
in = "43900" 'einzufügender String
For Each cell In Selection
If cell.HasFormula = True Then
cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, out, in)
End If
Next
End Sub
Das Makro sucht in einer Formel nach dem entsprechenden Ausdruck und ersetzt diesen durch den neuen.
Es funktioniert auch, ist aber leider ziemlich langsam (über 10 min), da es doch einige Formeln sind, die so wieder bereinigt werden müssen. Sollten noch mehr Formeln hinzukommen, würde es zu einer noch größeren Verzögerung kommen.
Gibt es irgendeinen Zusatz oder eine andere Möglichkeit mein Makro schneller laufen zu lassen.
Vielen Dank im voraus für Eure Hilfe.
Bye Susi