Nur in Formeln ersetzen
11.03.2004 14:45:45
Frank
ich habe folgendes Makro mit dem ich Werte nur in Formeln ersetzen will. Leider
ersetzt mir das Makro auch Werte in Zellen wo keine Formeln sind. Was mache ich
falsch ?
Sub JahrInFormelnErsetzen()
Dim zelle As Range
Application.ScreenUpdating = False
activesheet.UsedRange.Select
For Each zelle In Selection
If zelle.HasFormula = True Then Selection.Replace What:="2004", Replacement:="2005"
Next zelle
Application.ScreenUpdating = True
End Sub
Gruß
Frank