AW: Formel in mehreren Sheets ändern
30.05.2023 21:56:53
Christoph Neis
Hallo,
vielen Dank für die Rückmeldungen. Leider war ich nicht erfolgreich. Ich glaube ich habe zu wenig Infos zu meiner Frage mitgegeben. Ich möchte in einer Arbeitsmappe in allen Sheets die Formel der gleichen Zelle ändern. Nochmal der ganze Code:
Sub Summenkorrektur()
'
' Summenkorrektur Makro
'
'
Sheets(Array("KW (53)", "KW (52)", "KW (51)", "KW (50)", "KW (49)", "KW (48)", _
"KW (47)", "KW (46)", "KW (45)", "KW (44)", "KW (43)", "KW (42)", "KW (41)", "KW (40)" _
, "KW (39)", "KW (38)", "KW (37)", "KW (36)", "KW (35)", "KW (34)", "KW (33)", _
"KW (32)", "KW (31)", "KW (30)", "KW (29)")).Select
Sheets("KW (44)").Activate
Sheets(Array("KW (28)", "KW (27)", "KW (26)", "KW (25)", "KW (24)", "KW (23)", _
"KW (22)", "KW (21)", "KW (20)", "KW (19)", "KW (18)", "KW (17)", "KW (16)", "KW (15)" _
, "KW (14)", "KW (13)", "KW (12)", "KW (11)", "KW (10)", "KW (9)", "KW (8)", "KW (7)", _
"KW (6)", "KW (5)", "KW (4)")).Select Replace:=False
Sheets(Array("KW (3)", "KW (2)", "KW", "Summenblatt")).Select Replace:=False
Range("I76").Select
Application.CutCopyMode = False
Range("I76").FormulaR1C1 = "=R[1]C+R[23]C"
Range("I77").Select
Sheets("KW (20)").Select
End Sub