Wert in Formel ersetzen
12.05.2009 15:07:53
uwe
ich habe in einem Blatt viele Formeln nach dem Stil
='\\alt\Produktion\WKZ\BMW\[0930.XLS]0930 L'!$A$7
Hier sollen in allen Formlen der Pfad geändert werden.
z.B
='\\neu\Produktion\WKZ\BMW\[0930.XLS]0930 L'!$A$7
Ich hatte es mit
Sub Ersetzen()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("C3", "C12") 'Range anpassen
For Each Zelle In Bereich
With Zelle
.Value = Application.Substitute(.Value, "='\\alt\Produktion\WKZ\BMW\[0930.XLS]0930 L'!$A$ _
7
", "='\\neu\Produktion\WKZ\BMW\[0930.XLS]0930 L'!$A$7
")
End With
Next Zelle
Set Bereich = Nothing
End Sub
Anzeige