String im RefersTo suchen und ersetzen

27/09/2009 - 14:56 von FRANZ LUWEIN | Report spam
Hallo,

ich habe folgendes Problem und finde keine Lösung.

In meiner Arbeitsmappe befinden sich ca. 80 Tabellenblàtter.
Beim Ändern einiger Blattnamen (ergànzen mit 09-) zu Sicherungszwecken
wurde von Excel automatisch das "RefersTo" der auf diesen Blàttern
vorhandenen Namen geàndert/angepasst.
Zwischenzeitlich habe ich neue Tabellenblàtter erzeugt und mit den
"alten" Blattnamen versehen.
Ich möchte nun, dass auf diesen "neuen" Blàttern die entsprechenden
Bereiche so wie bei den "alten" benamt werden.
Die Namen/Bereiche auf den gesicherten Blàttern werden nicht mehr gebraucht.
Eigentlich bràuchte man "nur" bei den vorhandenen Namen die Ergànzung
09- aus den RefersTo löschen, dann wàre alles OK. Doch wie stelle ich
das an?

Mit freundlichem Gruß

Franz Luwein
 

Lesen sie die antworten

#1 Andreas Killer
27/09/2009 - 16:12 | Warnen spam
FRANZ LUWEIN schrieb:

Eigentlich bràuchte man "nur" bei den vorhandenen Namen die Ergànzung
09- aus den RefersTo löschen, dann wàre alles OK. Doch wie stelle ich
das an?


Sub Test()
Dim N As Name
For Each N In Names
N.RefersTo = Replace(N.RefersTo, "09-", "")
Next
End Sub

Ähnliche fragen