Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe aus mehreren Dateien bestimmts Tabellenblatt

Summe aus mehreren Dateien bestimmts Tabellenblatt
11.05.2016 14:46:45
Roman
Hallo,
lange nicht mehr hier gewesen - aber noch in guter Erinnerung :-)
Ich benötige Eure Hilfe und meine Deadline rückt immer näher...
Mein Problem:
Ich habe mehrere Exceldateien in einem Verzeichnis welche aus unterschiedlich vielen, gleichen Tabellenblättern bestehen.
Jede der Dateien hat ein Tabellenblatt mit dem Namen "Summe" welches die Summe aus den anderen Tabellenblättern per Makro generiert.
Dabei gehe ich mit einem sehr "schlichten" Makro wie folgt vor. 
Sub Summierung1()
Dim WS_Count As Integer
Dim I As Integer
Worksheets("Summe").Unprotect Password:="test"
' Tabellen in aktueller Mappe zaehlen
WS_Count = ActiveWorkbook.Worksheets.Count
' Starttabelle festlegen 2 fuer zweite...
For I = 2 To WS_Count
' Summierung der Zellen aller vorhandenen Tabellenblätter YTD
summe1 = summe1 + ActiveWorkbook.Worksheets(I).Range("W21")
summe2 = summe2 + ActiveWorkbook.Worksheets(I).Range("W22")
summe3 = summe3 + ActiveWorkbook.Worksheets(I).Range("W25")
summe4 = summe4 + ActiveWorkbook.Worksheets(I).Range("W30")
summe5 = summe5 + ActiveWorkbook.Worksheets(I).Range("W35")
summe6 = summe6 + ActiveWorkbook.Worksheets(I).Range("W43")
summe7 = summe7 + ActiveWorkbook.Worksheets(I).Range("W47")
summe8 = summe8 + ActiveWorkbook.Worksheets(I).Range("W48")
Next I
' Ausgabe der Summe in der Tabelle "Summe" in definierter Zelle YTD-Teil
Sheets("Summe").Range("W21") = summe1
Sheets("Summe").Range("W22") = summe2
Sheets("Summe").Range("W25") = summe3
Sheets("Summe").Range("W30") = summe4
Sheets("Summe").Range("W35") = summe5
Sheets("Summe").Range("W43") = summe6
Sheets("Summe").Range("W47") = summe7
Sheets("Summe").Range("W48") = summe8
End Sub

Nun möchte ich gern die so generierten Summenblätter aller im Verzeichnis befindlichen Dateien (Menge variiert) wiederum in einer eigenen Datei und einem Mastersummenblatt addieren.
Dabei sollen die Werte als feste Werte geschrieben werden. Alle Tabellen sind 100% identisch. Nachdem ich diese Datei versenden muss - müssen es feste Werte sein.
Würde mich sehr über Hilfe freuen.
Vielen Dank schon mal und viele Grüße
Roman

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe aus mehreren Dateien bestimmts Tabellenblatt
11.05.2016 15:39:44
UweD
Hallo
versuch mal das...

Sub Summen_alle_Dateien_Verzeichnis() '
On Error GoTo Fehler
Dim Dlg As FileDialog
Dim Si, Ext As String, Datei As String
Dim LR As Double, TB1, TB2, Z, SP As Integer
'anpassen
SP = 1 'Zielspalte 1=A
Ext = "*.xls*"
Set TB1 = ThisWorkbook.Sheets("Mastersumme")
'Ende anpassen
Application.ScreenUpdating = False
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
If Dlg.Show = True Then
TB1.Cells.ClearContents
For Each Si In Dlg.SelectedItems
Si = IIf(Right(Si, 1) = "\", Si, Si & "\")
Datei = Dir(Si & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:=Si & Datei
Set TB2 = Workbooks(Datei).Sheets("Summe")
For Each Z In TB2.Columns("W:W").SpecialCells(xlCellTypeConstants, 1)
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row + 1
TB1.Cells(LR, SP) = Datei
TB1.Cells(LR, SP + 1) = Z.Value
Next
Workbooks(Datei).Close SaveChanges:=False
Datei = Dir() ' nächste Datei
Loop
Next
LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row + 2
TB1.Cells(LR, SP) = "Gesamtsumme"
TB1.Cells(LR, SP + 1).FormulaR1C1 = "=SUM(R1C:R[-2]C)"
TB1.Cells(LR, SP + 1).Value = TB1.Cells(LR, SP + 1).Value
End If
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Anzeige
AW: Summe aus mehreren Dateien bestimmts Tabellenblatt
11.05.2016 17:53:06
Roman
Hallo Uwe,
vielen lieben Dank - habe die Version von Michael verwenden da bleibe ich flexibler.
VG
Roman

AW: Summe aus mehreren Dateien bestimmts Tabellenblatt
11.05.2016 16:02:51
Michael
Hi zusammen,
aha, Uwe hat ja schon eine Lösung parat.
Aber weil ich schon Zeit investiert habe: 
Option Explicit
Sub SummenLesen()
Dim Datei As String, Pfad As String, Bereich As String
Dim extDatei As Workbook
Dim i&, ub&, lb&
Dim aB As Variant ' Array aus Bereich
Dim aW#()         ' Zahlen aus Bereich
Pfad = Master.Range("b2").Value
Datei = Master.Range("b3").Value
Bereich = Master.Range("B4").Value
aB = Split(Bereich, ",")
ub = UBound(aB)
lb = LBound(aB)
ReDim aW(lb To ub)
Datei = Dir(Pfad & Datei)
Application.ScreenUpdating = False
While Datei  ""
Set extDatei = Workbooks.Open(Pfad & Datei, , True)
For i = lb To ub
aW(i) = aW(i) + Sheets(1).Range(aB(i))
Next
extDatei.Close
Datei = Dir
Wend
With Sheets("Summen")
For i = lb To ub
.Range(aB(i)) = aW(i)
Next
End With
MsgBox "Ergebnis in Blatt Summe"
End Sub
Makro zusammen mit Testdatein: https://www.herber.de/bbs/user/105509.zip
Ich habe einen variablen Ansatz gewählt, bei dem die einzelnen zu summierenden Zellen mit "," getrennt eingegeben werden. Das ändert sich vielleicht nicht laufend, aber zum Entwickeln war's schöner als mit Werten "rechts draußen" zu hantieren.
Schöne Grüße,
Michael

Anzeige
AW: Summe aus mehreren Dateien bestimmts Tabellenblatt
11.05.2016 17:50:45
Roman
Hallo Michael,
vielen Dank für die schnelle Hilfe. Das ist der Hammer!! Funktioniert perfekt.
Wie kann ich das Summenblatt am ende noch schützen und an welcher stelle den Schutz freigeben?
Vielen Dank noch mal und viele Grüße
Roman

Gerne
12.05.2016 19:49:03
Michael
Hi,
im Prinzip nur da, wo tatsächlich in das Summenblatt geschrieben wird, also ganz unten im WITH, hier mit den beiden zusätzlichen Zeilen zum Schutz aufheben bzw. Schützen: 
With Sheets("Summen")
.Unprotect
For i = lb To ub
.Range(aB(i)) = aW(i)
Next
.Protect
End With
ggf. kann man auch ein Passwort mitgeben, sie z.B.:
https://www.herber.de/forum/archiv/340to344/342479_ActiveSheetprotect_Passwort_mitgeben.html
Happy Exceling,
Michael
Anzeige

328 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
2
18
2
9
1