Tabellen zu einer Mastertabelle zusammenführen?!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi all ^^
ein beispiel
gruß michael
Option Explicit
Sub DateienLesen()
Call EventsOff
Dim DateiName As String
DateiName = Dir("C:\Temp\" & "*.xls")
Do While DateiName ""
If ThisWorkbook.Name DateiName Then
Workbooks.Open Filename:="C:\Temp\" & DateiName
Workbooks(DateiName).Worksheets("Tabelle5").Range(Cells(2, 1), Cells(Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row, Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Column)).Copy _
ThisWorkbook.Worksheets("Mastertabelle").Range("A" & ThisWorkbook.Worksheets("Mastertabelle").Range("A" & Rows.Count).End(xlUp).Row + 1)
Workbooks(DateiName).Close
End If
DateiName = Dir
Loop
Call EventsOn
End Sub


Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub


Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Sub DateienLesen() Call EventsOff Dim DateiName As String 'naechste zeile deinen pfad anpassen,nur dieses "C:\Temp\" DateiName = Dir("C:\Temp\" & "*.xls") Do While DateiName "" If ThisWorkbook.Name DateiName Then 'naechste zeile deinen pfad anpassen,nur dieses "C:\Temp\" Workbooks.Open Filename:="C:\Temp\" & DateiName 'es wird kopiert von 2,1 bzw zeile2 spalte 1 bis ermitteltes zeilen wie spaltenende 'tabellennamen sind nach deinen vorgaben Workbooks(DateiName).Worksheets("Tabelle5").Range(Cells(2, 1), Cells(Worksheets(" _ Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row, Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Column)).Copy _ ThisWorkbook.Worksheets("Mastertabelle").Range("A" & ThisWorkbook.Worksheets(" _ Mastertabelle").Range("A" & Rows.Count).End(xlUp).Row + 1) Workbooks(DateiName).Close End If DateiName = Dir Loop Call EventsOn End Sub

Sub DateienLesen() Call EventsOff Dim DateiName As String, DeinPfad As String, QuellTabelle As String, ZielTabelle As String DeinPfad = "C:\Temp\" QuellTabelle = "Tabelle5" ZielTabelle = "Mastertabelle" DateiName = Dir(DeinPfad & "*.xls") Do While DateiName "" If ThisWorkbook.Name DateiName Then Workbooks.Open Filename:=DeinPfad & DateiName Workbooks(DateiName).Worksheets(QuellTabelle).Range(Cells(2, 1), Cells(Worksheets( _ QuellTabelle).UsedRange.SpecialCells(xlCellTypeLastCell).Row, Worksheets(QuellTabelle).UsedRange.SpecialCells(xlCellTypeLastCell).Column)).Copy _ ThisWorkbook.Worksheets(ZielTabelle).Range("A" & ThisWorkbook.Worksheets( _ ZielTabelle).Range("A" & Rows.Count).End(xlUp).Row + 1) Workbooks(DateiName).Close End If DateiName = Dir Loop Call EventsOn End Sub

Hi Michael!
Da sich die Ausgangslage meines Problems geändert habe, habe ich nochmal ein neuen Eintrag ins Forum geschrieben.
Hier für Dich auch nochmal der Text:
"Hi an alle!
Eine ähnlich Frage hatte ich vor kurzem schon mal gestellt. Mittlerweile hat sich an der Ausgangslage jedoch etwas geändert, so dass ich meine Frage noch einmal stelle.
Ich habe verschiedene Projektpläne (alles einzelne Excel-Dateien; etwa 20). Diese bestehen alle aus einem Tabellenblatt namens Project View. Dieses Tabellenblatt ist so aufgebaut, dass es in der ersten Zeile den Namen des Projekts beinhaltet und in der zweiten die Überschriften für die Spalten. Der Aufbau ist bei jeder Datei gleich.
Ab der dritten Zeile folgen die Daten zum Projekt, d.h. aus welchen einzelnen Komponenten etc das Projekt besteht.
Jedes Projekt ist unterschiedlich umfangreich, d.h. es sind nicht immer die gleiche Anzahl von Zeilen vorhanden.
Nun möchte ich die einzelnen Projekte zusammenführen. Ich möchte Sie untereinander aufgelistet in die Datei Masterplan und dort im Tabellenblatt Mastertabelle einfügen. Die Projekte und der Masterplan befinden sich alle in einem Ordner.
Beachtet werden soll dabei, dass erst ab der dritten Zeile kopiert werden soll und, dass auch in dem Zielblatt Mastertabelle erst ab der dritten Zeile eingefügt werden soll, da dieses Tabellenblatt auch aus zwei ersten festen Zeilen besteht.
Ist dies irgendwie möglich?
Ich hoffe jemand kann mir bei diesem umfangreichen Herausforderung helfen!
Vielen Dank und viele Grüße
Volker "
Ich hoffe Du kannst mir noch weiterhelfen!
Viele Grüße
Volker

Beliebteste Forumthreads (12 Monate)

Tabellen zu einer Mastertabelle zusammenführen?!

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

97 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen zu einer Mastertabelle zusammenführen?!

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

97 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen zu einer Mastertabelle zusammenführen?!

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread