nochmal ersetzen
05.06.2002 14:30:54
andré
https://www.herber.de/forum/messages/126154.html
bin ich jetzt schon ein stück weiter:
For Each ActSh In Worksheets
For Each ActRe In ActSh.UsedRange.Cells
If ActRe.HasFormula And InStr(ActRe.Formula, "serv005") Then
TmpStr = ActRe.Formula
TmpStr = Replace(TmpStr, "serv005", "serv011")
ActRe.Formula = TmpStr
End If
Next ActRe
Next ActSh
aber bei der zeile
actre.formula = tmpstr kommt folgender dialog:
beschriftung indentifizieren
es wurden mehrere zellen mit der folgenden beschriftung gefunden: "serv011" wählen sie die zelle die die zu verwendende beschriftung enthält | |
Ok | abbrechen
wer kann mir jetzt weiterhelfen