Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon P.Simon85 vom 27.05.2022, 12:33 Options

Datenkonsolidierung aus verschiedenen Dateien

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

Antwort schreiben

Antwort 1 von Jonk vom 27.05.2022, 12:53 Options

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 :-)

Antwort 2 von nighty vom 27.05.2022, 13:11 Options

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

Antwort 3 von nighty vom 27.05.2022, 13:16 Options

hi patrick ^^

syntax eines netzwerkpfades

gruss nighty

"\\Rechner\Temp\"

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken