Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
A | B | C | D | E | F | G | |
1 | Benannte Bereiche | 1 | 10 | 15 | |||
2 | 10 | Art1 | 10 | 1 | 10 | 15 | |
3 | 100 | Art2 | 100 | 1 | 10 | 15 | |
4 | 150 | Art3 | 150 | 1 | 10 | 15 | |
5 | 1 | 10 | 15 | ||||
6 | 1 | 10 | 15 | ||||
7 | 1 | 10 | 15 | ||||
8 | 1 | 10 | 15 | ||||
9 | 1 | 10 | 15 | ||||
10 | 1 | 10 | 15 |
Formeln der Tabelle | ||||||||||||||
|
Dim strFormel As String
With Range("A3")
strFormel = replace(.formulalocal, "Art_3", "Art1")
strFormel = replace(strFormel, "Zm", "ZM_1")
.formulalocal = strFormel
End With
Groß und Kleinschreibweise beachten.
Gruß Tino
For Each n In ActiveSheet.Names
...auftauchen. Den auszutauschenden Teil könnte man dann ja komfortabel über eine InputBox oder bei nur geringer Anzahl über eine Parameterübergabe per spezieller Rufprozeduren (wie ich sowas nenne) festlegen.
Gruß Luc :-?
Besser informiert sein!
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen