Office: felder aus mehreren dateien summieren

Moin zusammen,

ich habe folgendes Problem:
In einem Ordner habe ich ca 30 Arbeitsmappen, die alle gleich aufgebaut sind und je für einen Lieferanten stehen
Jede dieser arbeitsmappen hat als 1. Tabellenblatt eine komplexe Übersicht, wie viele Modelle zu welchem wert und zeitpunkt bestellt sind, was angezahlt werden soll, was restzahlungen sind etc... also ne ganze menge!

Ich möchte in einer weiteren arbeitsmappe alle diese werte summieren.

es wäre machbar den ganzen kram manuell über die summenformel zu lösen, würde aber sicherlich einen tag dauern...

Gibt es eine formel, die auf ALLE Arbeitsmappen in einem Ordner jeweils die Gleiche Zellle summier??

Vielen Dank & viele Grüße

Christian

 

Hallo!

Von Hause aus kann Excel das nicht, bzw. nur auf die Art, die du schon beschrieben hast, also die manuelle Eintragung einer Addition.
Ich habe dir dafür eine VBA-Lösung gebastelt, zwar nicht gerade elegant :-( , aber funktionierend :-) :
Rechtsklicke den Tabellenreiter des Blattes, in dem die Summierungen aufgeführt werden sollen, und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Datei As String, OSum As Double
Datei = Dir(Target.Offset(0, -3) & "*.xl*")
Do Until Datei = ""
  OSum = OSum + ExecuteExcel4Macro("'" & Target.Offset(0, -3) & _
    "[" & Datei & "]" & Target.Offset(0, -2) & "'!" & _
    Range(Target.Offset(0, -1)).Address(ReferenceStyle:=xlR1C1))
  Datei = Dir
Loop
Target = OSum
Cancel = True
End Sub

Wie geht's nun weiter?
Trage in irgendeine Zelle den Quellpfad ein, z.B. E:\Test\Test\
Wichtig: Nicht den letzten Backslash vergessen!!!
In die Zelle rechts davon trägst du den Blattnamen ein, in dem sich die Zellen befinden, z.B. Tabelle1
Noch eine Zelle weiter rechts schreibst du den Zellbezug, also z.B. C4

Nun doppelklicke in die Zelle direkt rechts dieser Dreiergruppe:
Et voilà! Es erscheint die Summe aller Tabelle1!C4

Wie gesagt: nicht unbedingt schön, aber Hauptsache es klappt!

 

Hallo Schatzi,

erstmal 100 Dank für Deine Hilfe.... Scheint auch zu klappen, aber irgendwie gibt er mir den Fehler 1004 raus - beim debuggen hat er mit folgender zeile seine Probleme:

OSum = OSum + ExecuteExcel4Macro("'" & Target.Offset(0, -3) & _
"[" & Datei & "]" & Target.Offset(0, -2) & "'!" & _
Range(Target.Offset(0, -1)).Address(ReferenceStyle:=xlR1C1))

ist zumindest gelb unterlegt...
habe jedoch alle anderen angaben genau nach Anleitung eingegeben - Muss ich evtl den code an meine umgebung noch anpassen??

LG

Christian

 

Hallo!

In der angehängten Datei läuft der Code bei mir.
Und bei dir?

 

Hi Schatzi,

habe es ausprobiert mit Deiner Datei... hat leider nicht geklappt..
Ich probiere grade einen anderen Weg, aber 1000 Dank für die schnelle und professionelle Hilfe ;)

LG

Christian