Formelkorrektur in mehreren Arbeitmappen

Hallo zusammen,
ich habe folgendes Problem. Für den Verein habe ich eine Arbeitsmappe mit 13 Datenblättern erstellt.
Jetzt haben ca. 100 Leute diese Arbeitsmappe mit gleichem Inhalt, lediglich der Name variiert, welche sie mir auch wöchentlich zusenden. Diese wird bearbeitet und zurück geschickt.
In dem Datenblatt "Jahresbilanz" haben sich 2 Formelfehler eingeschlichen.
In der Zelle A4 muss es korrekt heißen: =SUMME(Dezember!R5;November!R5;September!R5;Oktober!R5;August!R5;Juli!R5;Juni!R5;Mai!R5;April!R5;März!R5;Februar!R5;Januar!R5)
In der Zelle muss es heißen: =SUMME(Dezember!S5;November!S5;September!S5;Oktober!S5;August!S5;Juli!S5;Juni!S5;Mai!S5;April!S5;März!S5;Februar!S5;Januar!S5)
Gibt es eine Möglichkeit das Problem mit einem Macro bzw. VBA Script zu korrigieren?
Hier im Forum habe ich dies gefunden: https://www.herber.de/forum/archiv/1544to1548/1544562_eine_Zelle_in_mehreren_Dateien_aendern.html
, scheint mir das gleiche Problem zu sein.
Nur wie passe ich dies an und wie setze ich das um?
Schon mal vielen Dank
Gruß
Herbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...ok, dann teste mal diesen Code:

Public Sub dateien_aendern()
Dim str_findfile As String
Dim obj_wkb_datei As Workbook
Application.ScreenUpdating = False
ChDrive ("D:\")
ChDir ("D:\Trainingspläne\2020\")
str_findfile = Dir("*2020.xls*", vbNormal)
Do Until str_findfile = ""
Set obj_wkb_datei = Workbooks.Open(str_findfile)
With obj_wkb_datei.Worksheets("Jahresbilanz")
.Range("A4").FormulaLocal = "=SUMME(Dezember!R5;November!R5;September!R5;Oktober!R5; _
August!R5;Juli!R5;Juni!R5;Mai!R5;April!R5;März!R5;Februar!R5;Januar!R5)"
.Range("A5").FormulaLocal = "=SUMME(Dezember!S5;November!S5;September!S5;Oktober!S5; _
August!S5;Juli!S5;Juni!S5;Mai!S5;April!S5;März!S5;Februar!S5;Januar!S5)"
End With
obj_wkb_datei.Close Savechanges:=True
str_findfile = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "fertig!"
End Sub

Bei der zweiten Zelle, deren Formel geändert werden soll, hattest Du die Zelladresse nicht angegeben. In meinem Code werden auf dem Blatt "Jahresbilanz" die Zellen A4 und A5 geändert. Das kannst Du im Code aber problemlos anpassen.

Beliebteste Forumthreads (12 Monate)

Formelkorrektur in mehreren Arbeitmappen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formelkorrektur in mehreren Arbeitmappen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread