Änderungen von Formeln durch Makro
14.10.2003 20:02:43
Peter
ich möchte mit Hilfe eines Makros Bezüge zu externen Excel-Tabellen
in einer Excel-Datei vollständig ändern, habe dafür auch bereits ein
Makro gefunden (und abgeändert), welches mir aber nur bedingt hilft:
Sub Verkn_aendern()
raus = Workbooks("peter.XLS").Worksheets("Tabelle1").Range("b7")
rein = Workbooks("peter.XLS").Worksheets("Tabelle1").Range("b8")
For Each Cell In Selection
If Cell.HasFormula = True Then
Cell.Formula =
Application.WorksheetFunction.Substitute(Cell.Formula, raus, rein)
End If
Next
End Sub
Dabei steht in Zelle B7 der alte und in B8 der neue Bezug (als text);
diese Form der Angabe eines Bezuges ist so gewollt, problematisch ist
aber die Zellauswahl "In Selection" - hier müsste etwas stehen wie
"in der gesamten Datei", mit "In Active.Workbook" o.ä. komme ich aber
leider nicht weiter...
Für eine Idee wäre ich sehr dankbar,
mfg
Peter