Das Archiv des Excel-Forums

Ä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 download Zeile einfügen und Formeln und Werte übernehmen download
Formeln mit Zelladressen speichern download Zeilen mit leeren Formeln beim Druck unterdrücken download
Alle Formeln und Links in Werte wandeln download Namen löschen ohne Formeln zu zerstören download
Alle Formeln und Zahlen löschen download Spielpaarungen von Vorrunde bis Finale durch Formeln ermitteln download
Markierung von Formeln über bedingte Formatierung download Zellschutz nur für Formeln download
Blatt ohne Code, Steuerelement und Formeln speichern download Eintragen von Matrixformeln in eine Jahres-/Monatsmatrix download
Alle Zellen mit Formeln finden download