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!