Hallo Supporter,
ich habe folgendes Problem:
Der Zellinhalt aller geöffneten Dokumente und Worksheets soll, wenn er ein "=", ein "[" und ein "S:" an der jeweiligen Stelle enhält, verändert werden (in Excel).
Folgendes Makro macht das auch, aber nur manchmal:

Sub Pfadaenderung()
Dim R As Range
Dim i As Integer

Dim Length As Integer
Dim Path_old As String

For Each wb In Workbooks
For Each ws In Worksheets
ActiveWorkbook.Save
For Each R In ws.UsedRange
If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 And InStr(R.Formula, "S:") > 1 Then
Path_old = R.Formula
i = InStr(R.Formula, ":")
Length = Len(R.Formula)
Path = Left(Path_old, i - 2) & "J:" & Right(R.Formula, Length - i)
R.Formula = Path
Else
End If
Next R
Next ws
ActiveWorkbook.Close Savechanges:=True
Next wb
End Sub

Wenns nicht klappt, kommt folgende Meldung:
"Laufzeitfehler: '-214...'"
"Die Methode 'Formula' für das Objekt 'Range' ist fehlgeschlagen"

Kann mir jemand helfen?

Danke schon im voraus.

Paulo