Ich habe 3 identisch aufgebaute Excel Tabellen, deren Werte ich in einer 4. Datei konsolidieren (addieren) muss. Also in der 4. Datei im Prinzip =[Datei1]Tabelle1!a1+[Datei2]Tabelle1!a1+[Datei3]Tabelle1!a1
Eigentlich ganz einfach.
Allerdings sind diese Dateien riesig groß (Ausgedruckt ca. 100 Seiten). Innerhalb eines Tabellenblattes kann ich die Formel einfach kopieren und einfügen, das klappt. Aber leider gehen die Dateien auch über zig Tabellenblätter.
Folgende Überlegung meinerseits: In allen Zellen, in denen diese Funktion ausgeführt werden soll, gebe ich einen Text / Zahl ein, die sonst nicht in der Tabelle vorkommt. Anschließend lasse ich per suchen und ersetzen diesen Text / Zahl durch eine Formel ersetzen, die anhand der Adresse der Zelle aus den anderen drei Dateien (eben aus dieser Zelle) die Werte addiert. Nun bin ich auf der Suche nach dieser Formel
Kann mir da jemand helfen ???
Hi Joshua,
Vba-Lösung, ungetestet, mal so als Ansatz:
Sub tt()
For n = 1 To ThisWorkbook.Worksheets.Count
With Worksheets(n)
For Each Zelle In .Range("A1:A100")
Zelle.FormulaLocal = "=[Datei1]Tabelle1!a" & Zelle.Row & "+[Datei2]Tabelle1!a" \_
& Zelle.Row & "+[Datei3]Tabelle1!a" & Zelle.Row
Next Zelle
End With
Next n
End Sub
Bei deiner Excellösung, Suchen/Ersetzen müßtest du so in etwa ersetzen:
=INDIREKT("[Datei1]Tabelle1!A"&ZEILE())+INDIREKT("[Datei2]Tabelle1!A"&ZEILE())+INDIREKT("[Datei3]Tabelle1!A"&ZEILE())
Sind die drei dateien im Moment des Ersetzens nicht geöffnet kriegste #BEZUG.
Gruß
Reinard
Ich habe 3 identisch aufgebaute Excel Tabellen, deren Werte
ich in einer 4. Datei konsolidieren (addieren) muss. Also in
der 4. Datei im Prinzip
=[Datei1]Tabelle1!a1+[Datei2]Tabelle1!a1+[Datei3]Tabelle1!a1
Eigentlich ganz einfach.
Allerdings sind diese Dateien riesig groß (Ausgedruckt ca. 100
Seiten). Innerhalb eines Tabellenblattes kann ich die Formel
einfach kopieren und einfügen, das klappt. Aber leider gehen
die Dateien auch über zig Tabellenblätter.
Folgende Überlegung meinerseits: In allen Zellen, in denen
diese Funktion ausgeführt werden soll, gebe ich einen Text /
Zahl ein, die sonst nicht in der Tabelle vorkommt.
Anschließend lasse ich per suchen und ersetzen diesen Text /
Zahl durch eine Formel ersetzen, die anhand der Adresse der
Zelle aus den anderen drei Dateien (eben aus dieser Zelle) die
Werte addiert. Nun bin ich auf der Suche nach dieser Formel
hi,
vielleicht versteh ichs problem noch nicht, aber warum schreibst du nicht einfach eine summenformel und füllst sie dann entsprechend aus?
???
michael
Vba-Lösung, ungetestet, mal so als Ansatz:
Sub tt()
For n = 1 To ThisWorkbook.Worksheets.Count
With Worksheets(n)
For Each Zelle In .Range(„A1:A100“)
Zelle.FormulaLocal = „=[Datei1]Tabelle1!a“ & Zelle.Row &
„+[Datei2]Tabelle1!a“ _
& Zelle.Row & „+[Datei3]Tabelle1!a“ &
Zelle.Row
Next Zelle
End With
Next n
End Sub
Danke. Mit dem Ansatz bin ich richtig gut weitergekommen. Per Copy & Paste von dir (und anderen) geklaut, per try und error getestet.
Aber jetzt funktioniert’s!
Mit Stolzgeschwellter Brust mein erster (selbstgeklauter) VBA Code:
Sub Ersetzen()
Dim tabelle As String
For n = 1 To ThisWorkbook.Worksheets.Count
With Worksheets(n)
tabelle = Worksheets(n).Name
For Each zelle In Worksheets(n).UsedRange
If zelle.Value = „xxx“ Then zelle.Formula = „=[Test2.xls]“ & tabelle & „!“ & zelle.Address & „+[Test.xls]“ & tabelle & „!“ & zelle.Address & „+[Test1.xls]“ & tabelle & „!“ & zelle.Address
Next zelle
End With
Next n
End Sub
Genau das was ich brauche.
Vielen Dank für den Denkanstoss.
Grüsse
Joshua
(der seine gekauften VBA Bücher bei Gelegenheit mal lesen sollte)
Bei deiner Excellösung, Suchen/Ersetzen müßtest du so in etwa
ersetzen:
=INDIREKT("[Datei1]Tabelle1!A"&ZEILE())+INDIREKT("[Datei2]Tabelle1!A"&ZEILE())+INDIREKT("[Datei3]Tabelle1!A"&ZEILE())
Sind die drei dateien im Moment des Ersetzens nicht geöffnet
kriegste #BEZUG.
Gruß
Reinard
Ich habe 3 identisch aufgebaute Excel Tabellen, deren Werte
ich in einer 4. Datei konsolidieren (addieren) muss. Also in
der 4. Datei im Prinzip
=[Datei1]Tabelle1!a1+[Datei2]Tabelle1!a1+[Datei3]Tabelle1!a1
Eigentlich ganz einfach.
Allerdings sind diese Dateien riesig groß (Ausgedruckt ca. 100
Seiten). Innerhalb eines Tabellenblattes kann ich die Formel
einfach kopieren und einfügen, das klappt. Aber leider gehen
die Dateien auch über zig Tabellenblätter.
Folgende Überlegung meinerseits: In allen Zellen, in denen
diese Funktion ausgeführt werden soll, gebe ich einen Text /
Zahl ein, die sonst nicht in der Tabelle vorkommt.
Anschließend lasse ich per suchen und ersetzen diesen Text /
Zahl durch eine Formel ersetzen, die anhand der Adresse der
Zelle aus den anderen drei Dateien (eben aus dieser Zelle) die
Werte addiert. Nun bin ich auf der Suche nach dieser Formel
Ich habe 3 identisch aufgebaute Excel Tabellen, deren Werte
ich in einer 4. Datei konsolidieren (addieren) muss. Also in
der 4. Datei im Prinzip
=[Datei1]Tabelle1!a1+[Datei2]Tabelle1!a1+[Datei3]Tabelle1!a1
Eigentlich ganz einfach.
Hallo Joshua,
wenn Du in der 4. konsolidierten Datei nur die Summenwerte haben möchtest, dann solltest du die besonderen Mödlichkeiten unter dem Menüpunkt ‚Bearbeiten‘–>‚Inhalte einfügen‘ nutzen.
Ich schlage folgende Weg vor, der auch verhältnismäßig einfach in ein Makro umgesetzt werden kann:
Du speicherst die erste Datei unter einem neuen Namen. Damit hast du alle Formatierungen vom Original und die Daten aus der 1. Datei.
Du öffnest die 2. Datei
Du markierst in der 1. Tabelle der 2. Datei alle Zellen (1 Klick auf das leere Spalten/Zeilenfeld links oben)
Du wählst Bearbeiten —>kopieren
Du wechselst zur konsolidierten Datei
Du zeigst hier die 1. Tabelle an und markierst alle Zellen oder positionierst den Cursor im Feld A1
Du wählst Bearbeiten -->Inhalte einfügen…
In dem dann angezeigten Fenster markierst du unter ‚Einfügen‘ die Option ‚Werte‘ und unter ‚Operation‘ die Option ‚Addieren‘
Dann OK.
Die Werte beider Tabellen werden dann addiert. Textfelder werden nicht verändert.
Die Schritte 3 bis 7 wiederholst du für alle Tabellen.
Schließen der 2. Datei
Öffnen der 3. Datei
Wiederholen der Schritte 3 bis 7 für alle Tabellen der 3. Datei
Vielen Dank für deine Antworten (er hat auch per Mail geantwortet und ein komplettes Makro geschickt).
Leider kann ich den von dir vorgeschlagenen Weg nicht nehmen. Die Tabellen, die zu konsolidieren, sind enthalten Unmenge an Formeln und Verknüpfungen. Wenn ich über Inhalte einfügen / addieren gehe, werden die Formeln leider ebenfalls umgesetzt. Aber die Idee an sich ist sehr gut.
Grüsse
Joshua.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
