Thema: Formeln in mehreren Sheets ändern | Herbers Excel-Forum

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

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