Microsoft Excel

Herbers Excel/VBA-Archiv

Formeln in mehreren Sheets ändern | Herbers Excel-Forum


Betrifft: Formeln in mehreren Sheets ändern von: Sven
Geschrieben am: 16.11.2009 00:05:34

Hallo,

ich habe eine Tabelle mit meheren Seiten

Persdaten
Stammdaten
23
24
25
usw.

jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)

jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.

wie kann ich es mit vba lösen.

jetzt sollte es nur bei allen anderen Seiten auch klappen, denn ich habe ganz viele tabellen und möchte nicht alle per hand ändern.

es müsste doch mit: if sheets<>("Persdaten) than Unprotect Password:="code"
Range("R228:S228").Select
ActiveCell.FormulaR1C1 = "=R[-56]C[-7]"
Range("R284:S284").Select
ActiveCell.FormulaR1C1 = "=R[-56]C[-7]"
Range("R340:S340").Select
ActiveCell.FormulaR1C1 = "=R[-56]C[-7]"

Vielleicht gibts ja eine einfacht Lösung

Danke

  

Betrifft: AW: Formeln in mehreren Sheets ändern von: Jens
Geschrieben am: 16.11.2009 02:44:50

Hallo

ungetestet:

Sub tt()
Dim wks As Worksheet
For Each wks in ThisWorkbook.Worksheets
If wks.name <> "Persdaten" then
wks.Range("R228:S228").FormulaR1C1 = "=R[-56]C[-7]"
wks.Range("R284:S284").FormulaR1C1 = "=R[-56]C[-7]"
wks.Range("R340:S340").FormulaR1C1 = "=R[-56]C[-7]"
End If
Next wks
End Sub
Gruß Jens


Beiträge aus den Excel-Beispielen zum Thema "Formeln in mehreren Sheets ändern"