Herbers Excel-Forum - das Archiv

Änderungen von Formeln durch Makro

Bild

Betrifft: Änderungen von Formeln durch Makro
von: Peter
Geschrieben am: 14.10.2003 20:02:43
Hallo,

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
Bild

Betrifft: AW: Änderungen von Formeln durch Makro
von: GerdW
Geschrieben am: 14.10.2003 22:17:54
Versuchs mal mit replace, das ist wesentlich schneller als
die Schleife. Den Code kannst du weitgehend aufzeichnen.

Gerd
Bild

Betrifft: AW: Änderungen von Formeln durch Makro
von: RAnton
Geschrieben am: 14.10.2003 22:18:10
Hallo Peter,
ich würde die


Sub so umstellen.



Sub Verkn_aendern()
Dim wb As Workbook
Dim ws As Worksheet
Dim cell As Range
Set wb = Workbooks("peter.xls")
For Each ws In wb.Worksheets
For Each cell In ws.Cells
If cell.HasFormula Then cell.Formula = wb.Worksheets("Tabelle1").Range("b8").Formula
Next
Next
End Sub



Die


Sub wird zwar sehr lange laufen, da alle Worksheets mit allen Zellen durchlaufen wird, aber dafür wird auch nix vergessen.
Die neue Formel schreibst du einfach in die Zelle b8 des Worksheets Tabelle1.
Gruß
RAnton

Bild

Betrifft: AW: Änderungen von Formeln durch Makro
von: Peter
Geschrieben am: 16.10.2003 21:37:56
Danke, habe mittlerweile dank Eurer beiden Hinweise ein gute Lösung hinbekommen...
 Bild
Excel-Beispiele zum Thema " Änderungen von Formeln durch Makro"
Anzeigen von Werten und Formeln Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern Zeilen mit leeren Formeln beim Druck unterdrücken
Alle Formeln und Links in Werte wandeln Namen löschen ohne Formeln zu zerstören
Alle Formeln und Zahlen löschen Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln
Markierung von Formeln über bedingte Formatierung Zellschutz nur für Formeln