Daten aus mehreren Dateien einfügen

Hallo liebe Helfer,
ich bräuchte Eure Hilfe beim Lösen folgendes Problems. Ich habe eine Datei "Bereichsübergreifend" mit dem Blatt "DB_Bereich_x". Darin sollen alle Infos aus ca. 4-6 Dateien reinkopiert werden. Diese dient als Basis für eine Pivottabelle.
Die Infos kommen aus Dateien, die aber immer den gleichen Struktur haben, nur unterschiedlich benannt sind. Die benötigte Infos sind immer im Blatt "Input-DB" in der Spalte A-AB, ab Zeile 3 bis variabel (meistens 4-10). In Zeile 2 steht die Spaltenbezeichnung.
Beispiel:
- Datei "Report_Bereich_IV_2018_Presse" Blatt"Input-DB" die Zelle A3:AB8 kopieren und einfügen in die Datei "Bereichsübergreifend_IV_2018" Blatt "DB_Bereich_IV" in Zellen A3:AB8.
Danach mit "Report_Bereich_IV_2018_Marketing" das gleiche, allerdings die Daten erst ab A9 im Blatt "DB_Bereich_IV" einfügen...usw.
(HIntergrundinfo: Jahr im Dateiname wird immer angepasst. Es gibt Bereiche I bis VIII. Diese Dateien sind im jeweiligen Ordner ablegt: Report/Bereich IV /2018)
Ich bräuchte jetzt eine Makro-Lösung der innerhalb des Bereichs (oder Bereichsordner) die Infos aus alle notwendige Dateien immer aus dem Blatt "Input-DB" die Zellen
A3: AB? in die Datei "Bereichsübergreifend_IV" Blatt "DB_Bereich_IV" einkopiert.
Natürlich einmalig die Zelle A2:AB2 (=Spaltenbezeichnung)beim ersten Mal mitkopiert.
Wie müsste jetzt das Makro sein, damit aber folgendes flexibel bleibt, da es immer unterschiedlich ist:
a) Die Dateiname, aus der die Infos kommen (Beispiel oben "Report_Presse"). Dateiname enthält Namen, Bereich, Jahr (und Name - habe hier aber rausgelassen).
b) Bereiche ändern sich (von I bis VIII möglich) beim Blattname "DB_Bereich_x". Wobei hier könnte ich auf die unterschiedliche Bereichsbezeichnung verzichten, wenn es einfacher ist ein festen Namen immer zu nehmen.
Ich hoffe, ich konnte mich verständlich ausdrucken :-).
P.S. Als zweite Makro werde ich später auch benötigen, dass alle Infos aus jeweiligen "DB_Bereich_x" in einem Blatt zusammengefasst werden, so dass ich daraus wieder eine Pivottabelle erstellen kann.
VIELEN DANK IM VORAUS an die Helfer, die sich die Zeit nehmen meine Lösung für mein Problem zu finden.
Meli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Armin und Klexy,
ich habe jetzt ein Beispieldatei hochgeladen, wo ihr sieht wie die Daten aussehen inkl. Verzeichnisstruktur. Außerdem ein Blatt mit aktuellem VBA-Code, das leider nicht funktioniert :-((
https://www.herber.de/bbs/user/123463.xlsx
Armin, meine VBA Kenntnisse reichen schon soweit,dass ich zu ca. 80% eines fertigen Codes verstehe und auf mein Verzeichnisstruktur und Dateiname abändern kann. Somit bitte ruhig ein Codevorschlag machen, den ich dann versuche in "echte Umgebung" abzuändern.
Hier der Code (was aber auch in Datei enthalten ist)

Sub DB_Input_kopieren_Meli()
Dim B4 As String
Dim B4a As String
Dim B4b As String
Dim B4c As String
Dim B4d As String
Dim B4e As String
Set B4 = ThisWorkbook.Path
Set B4a = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\_01_Risikoreport_IV_IHK  _
Magazin_2018_Matthes_Arbeitsstand.xlsm"
Set B4b = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _
_02_Risikoreport_IV_Marketing_2018_Gelhaus_Arbeitsstand.xlsm"
Set B4c = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _
_03_Risikoreport_IV_ISZ_2018_Burk_Arbeitsstand_V1.xlsm"
Set B4d = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _
_04_Risikoreport_IV_Presse_2018_Toparkus_Arbeitsstand"
' hier weiß ich nicht wie ich vom Pfad und Dateiname unabhängiger machen kann? Ich habe nä _
mlich 8 Bereiche mit unterschiedlichen Unterdateiensnamen
Workbooks.Open Filename:=B4a
Sheets("Input-DB").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Sheets("DB_Bereich_IV").Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:AB").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(B4a).Close SaveChanges:=False
Workbooks.Open Filename:=B4b
Sheets("Input-DB").Range("A3").Activate
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Sheets("DB_Bereich_IV").Range("A9").Select
'da weiß ich nicht, wie ich immer die erste leere Zelle in Spalte A ermitteln kann, damit  _
dort der Bereich reinkopiert wird
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(B4b).Close SaveChanges:=False
Workbooks.Open Filename:=B4c
Sheets("Input-DB").Range("A3").Activate
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Sheets("DB_Bereich_IV").Range("A9").Select
'da weiß ich nicht, wie ich immer die erste leere Zelle in Spalte A ermitteln kann, damit  _
dort der Bereich reinkopiert wird
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(B4c).Close SaveChanges:=False
Workbooks.Open Filename:=B4d
Sheets("Input-DB").Range("A3").Activate
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
ThisWorkbook.Sheets("DB_Bereich_IV").Range("A9").Select
'da weiß ich nicht, wie ich immer die erste leere Zelle in Spalte A ermitteln kann, damit  _
dort der Bereich reinkopiert wird
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(B4d).Close SaveChanges:=False
End Sub

Set B4 = ThisWorkbook.Path Set B4a = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\_01_Risikoreport_IV_IHK _ Magazin_2018_Matthes_Arbeitsstand.xlsm" Set B4b = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _ _02_Risikoreport_IV_Marketing_2018_Gelhaus_Arbeitsstand.xlsm" Set B4c = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _ _03_Risikoreport_IV_ISZ_2018_Burk_Arbeitsstand_V1.xlsm" Set B4d = "L:\Makros\op\Risikomanagement\Risikoreport Bereich IV\ _ _04_Risikoreport_IV_Presse_2018_Toparkus_Arbeitsstand" ' hier weiß ich nicht wie ich vom Pfad und Dateiname unabhängiger machen kann? Ich habe nä _ mlich 8 Bereiche mit unterschiedlichen Unterdateiensnamen

Beliebteste Forumthreads (12 Monate)

Daten aus mehreren Dateien einfügen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus mehreren Dateien einfügen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread