Datenkonsolidierung aus verschiedenen Dateien

Question

Hallo liebe Excelgemeinde,

ich bin langsam etwas am verzweifeln. Das kann aber auch daran liegen das ich zur Zeit nur nach dem falschen Suche, bzw. die falsche Idee habe.

Ausgangspunkt:
Ich habe mehrere Dateien im Netzwerk liegen in denen Zeilenweise Artikelnummern mit bestimmten Infos hinterlegt sind. (Spalte A = Artikelnummer, Spalte B =Bezeichung, Spalte C = Lieferant etc...) Alle Dateien haben die exakt gleichen Spaltenbezeichnungen und Reihenfolgen.

Ziel:
Ich brauche eine "Master"-Tabelle die alle Infos aus den Dateien zusammenfasst (untereinander schreibt wäre besser). Dabei sollen einfach nur alle Infos aus Datei1 untereinander geschrieben werden und direkt darunter alle Infos aus Datei2....etc. Sodass ich darauf ne Pivot anwenden kann

was habe ich bisher probiert:
Ich habe es bereits mit Konsolidierungsbereichen im Pivotassistent probiert...aber der will mir die Infos nicht wiedergeben, stattdessen werden Daten aufsummeriert etc, dass will ich aber nicht.
Dann habe ich es mit dem Datenimport über Microsoft Query probiert. Der Import klappt zwar, aber eben nicht in eine Tabelle.

Verfolge ich den falschen Ansatz? Ich will wirklich nur die Daten stur untereinander schreiben um damit weiterarbeiten zu können.....bitte helft mir!

Vielen Dank im Voraus


Patrick

Answer 1

Moin,
je nach Datenmenge und Anzahl der Dateien dürftest du mit Str+C und Strg+V doch eigentlich am schnellsten sein? Eignet sich natürlich nur, wenn sich die Quelldateien nicht mehr ändern und die Datenmengen einigermaßen im Rahmen bleiben.

Ansonsten riecht es stark nach Access Datenbank, Verknüpfungen auf deine Tabellen (oder importieren) und entsprechende Anfügeabfrage oder Auswahlabfrage... Falls es wirklich so viele Daten sein sollten, dass du per copy/paste so lange beschäftigt wärst (oder gar dein PC nicht mitmacht...) ist das sicherlich eh die bessere Lösung.

Viel Erfolg :-)

Answer 2

hi patrick ^^

vielleicht etwas in der art :-)

pfad wie auch tabellennamen bzw index sind anzupassen

gruss nighty

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(1).Range("A2" & Workbooks(DateiName).Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row).Copy _
ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).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

Answer 3

hi patrick ^^

syntax eines netzwerkpfades

gruss nighty

"\\Rechner\Temp\"