Hallo! 

Ich habe folgendes Problem: Ich habe einen Ordner mit Dateien. Ich möchte diese Dateien nacheinander öffnen und daraus aus immer denselben Spalten Werte kopieren. Die verschiedenen Files im Ordner sehen alle gleich aus, haben jedoch verschiedene Namen. Ich habe dazu schon folgenden Code erstellt:

Sub Daten_kopieren()
Dim Pfad As String, Dateiname As String, iRow As Long
Application.ScreenUpdating = False
Pfad = "J:\N-HEK\Reporting_S F X R R\Locations' submissions\2012_07\Test\"
Dateiname = Dir(Pfad & "*.xls")
Do While Dateiname <> ""
Workbooks.Open Filename:=Pfad & Dateiname
iRow = ThisWorkbook.Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0).Row
Workbooks(Dateiname).Sheets("Breakdown by Entity").Range("P2:P132").Copy
ThisWorkbook.Sheets("Sheet1").Cells(iRow, 1).PasteSpecial
Workbooks(Dateiname).Sheets("Breakdown by Entity").Range("AB2:AB132").Copy
ThisWorkbook.Sheets("Sheet1").Cells(iRow, 2).PasteSpecial Paste:=xlValues
Workbooks(Dateiname).Close
Dateiname = Dir()
Loop
End Sub

Dieser Code funktioniert bereits sehr gut. Er überprüft verschiedene Spalten aus den Dateien in dem bestimmten Ordner und kopiert die Werte in die nächste frei Zelle in Spalte eins. Was bräuchte ich nun jedoch konkret: 

Mein Grunddatensatz sieht immer gleich aus. In Spalte E stehen immer die gleichen einheitlichen Identifizierungscodes. Ich hätte nun gerne, dass die Daten aus den einzelnen Dateien aus Spalten P und AB nicht in die nächste freie Zeile in Spalte 1 kopiert werden, sondern das die Daten aus den einzelnen Dokumenten in einem neuen von mir erstellten File mit den IDs in Spalte 1 diesen IDs in der nächsten freien Spalte zugeordnet werden. Problematisch ist zudem, dass in den einzelnen Files in den Spalten P und AB nur in ausgewählten Fälle Werte eingetragen sind. In allen anderen Fällen steht nichts (auch keine 0). D.h. mein Outcome file sollte folgendermaßen aussehen: 

Spalte A: Von mir manuell eingetragener ID Code

Spalte B: Jene Werte die in Spalte P der ersten Datei stehen zugeordnet zu dem jeweiligen ID Code

Spalte C: Jene Werte die in Spalte AB der ersten Datei stehen zugeordnet zu dem jeweiligen ID Code

Spalte D: Jene Werte die in Spalte P der zweiten Datei stehen zugeordnet zu dem jeweiligen ID Code .... 

Erschwerend kommt noch dazu, dass in der jeweils selben Datei nicht unbedingt ein Wert in Spalte AB stehen muss, auch wenn in P einer gestanden ist. Es kann jedoch nicht sein, dass in Spalte AB in einer Zeile ein Wert steht, wenn in Spalte P kein Wert steht. 

Ich hoffe ich konnte das Problem einigermaßen klar schildern und würde micht freuen, wenn mich jemand unterstützen würde.

Gruß

Christoph