Hallo,
anbei eine Funktion, dich ich ganz allgemein gehalten habe.
Ein Bereich "fRange" wird untersucht. Befindet sich darin eine Formel die eine bestimmte Zeichenfolge (fOld) enthält, wird diese durch (fNeu) ersetzt.
In deinem Fall könnte der Aufruf der Funktion zum Beispiel wie folgt lauten:
adapt "G2:G50","April","Mai"
Durchsuche den Bereich "G2:G50" nach "April" und ändere diesen auf "Mai"
Function adapt(fRange, fOld, fNew)
Set sel = Range(fRange)
For Each fLine In sel
formula_old = fLine.Formula
If InStr(1, formula_old, fOld) Then
formula_new = Replace(formula_old, fOld, fNew)
fLine.Formula = formula_new
End If
Next
End Function
Lg.
Martin
|