Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summen aus mehreren Dateien bilden

Summen aus mehreren Dateien bilden
Rudolf
Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten Arbeitsblatt in den entsprechenden Zellen die Summe der Werte aus den Dateien bilden. Wie macht man das? Gibt es ein Makro?
Wenn ein Makro geschrieben werden muss: Muss dann für jede betroffene Zelle des Summen-Arbeitsblattes ein eigenständiges Makro geschrieben werden?
Gruß
Rudolf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
wieviele summen,beispieldaten...
28.06.2009 19:07:21
robert
hi,
..wären sinnvoll
gruß
robert
AW: Summen aus mehreren Dateien bilden
28.06.2009 19:21:29
Daniel
HI
es kommt natürlich darauf an, wie deine Daten aufgebaut sind, aber im Prinzip reicht ein Makro.
hier mal ein Beispiel, wie sowas funktionieren könnte, zusammengefasst werden die Daten vom Tabellenblatt Tabelle1 in den Zellen A1, B2, C3 und D4.
Option Explicit

Sub DatenSammeln()
Dim i As Long, x As Long
Dim SummenZellen
Dim ZielZelle As Range
Dim QuellZelle As Range
Dim wbQuelle As Workbook
'Zellen festlegen, die kopiert werden sollen
SummenZellen = Array("A1", "B2", "C3", "D4")
For i = 1 To 50
'Dateien aus benanntem Pfad öffnen
Set wbQuelle = Workbooks.Open("C:\DeinPfad\DeinDateiname" & i & ".xls")
For x = 0 To UBound(SummenZellen, 1)
'Einzelzellen aufaddieren
Set ZielZelle = ThisWorkbook.Sheets("Tabelle1").Range(SummenZellen(x))
Set QuellZelle = wbQuelle.Sheets("Tabelle1").Range(SummenZellen(x))
ZielZelle.Value = ZielZelle.Value + QuellZelle.Value
Next
wbQuelle.Saved = True
wbQuelle.Close
Next
End Sub


Tabellenblattnamen, Zellbereiche und Pfad und Dateinamen müssen natürlich noch angepasst werden.
Gruß, Daniel

Anzeige

312 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Zählenwenn über mehrere Spalten
Mario

Zählenwenn über mehrere Spalten
Guten Morgen an alle, ich habe einmal ein Problem mit der Funktion "Zählenwenn".
Ich habe ein Tabellenblatt wo in der Spalte "A" verschiedene Jahreszahlen hinterlegt sind
( z.B. 2008 , 2009, usw. ) und in Spalte "D" einige Werte.
Ich möchte z.B....
26.11.2008 09:20:00
Thread-ID: 1027923
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
SummeWenn mehrere Dateien
Christian

Hallo liebe Com,
ich habe folgendes Problem und gehört das ich hier gute Antworten und Hilfe bekommen kann.
So folgende Aufgabenstellung in meiner Firma:
Auswertung in Excel über 3 Grunddateien mit Daten und die 4 Datei erstelle ich mit Formeln wo ich eine Auswertung bekomme.
Da...
15.12.2008 16:01:00
Thread-ID: 1033077
6 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
8
16
6
4
2
3
2
5
7
4
2
5
4
4
3
13
4
4
3
18
2
9
1
4