Einlesen von Daten aus anderen Excel-Dateien

Hallo zusammen,
folgende Fragestellung: Ich habe ca. 50 separate Excel-Dateien, die jeweils ein Arbeitsblatt enthalten. In jeder der Dateien ist das Arbeitsblatt mit einem spezifischen Namen bezeichnet, der nicht dem Dateinamen entspricht.
Jede dieser 50 Dateien enthält Einträge in Zahlen- und Textform in immer den gleichen Zellen (z.B. W11, B15, AA25 etc.). Ich möchte die Einträge aller 50 Dateien in einer einzigen Excel-Tabelle mit 50 Zeilen und x Spalten zusammenfassen. Dafür schwebt mir vor, die Inhalte aus jeder der Dateien so einzulesen, dass die Einträge aus den Zellen W11, B15, AA25 etc. aus einer Quell-Datei jeweils in Spalten einer Zeile erscheinen, also für Datei 1 aus W11 nach A1, aus B15 nach B1, aus AA25 nach C1, die Einträge aus Datei 2 dann aus W11 nach A2, B15 nach B2, AA25 nach C2 usw.
Hat jemand Ideen für ein Makro, mit dem ich das umsetzen könnte? Machbar wäre z.B., dass ich die jeweilige Zeile in meiner Zieldatei manuell anwähle und jede Quell-Datei manuell einzeln aufrufe.
Ich wäre sehr dankbar für Anregungen und natürlich Vorschläge für einen VBA-Code.
Viele Grüße
Dominic

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim wbkTemp As Workbook, wbkZiel As Workbook, wksZiel As Worksheet, wksQuelle As Worksheet Dim lngRow As Long set wbkZiel = ThisWorkbook set wksZiel = wbkZiel.ActiveSheet lngRow = wksZiel.UsedRange.Rows.Count For Each wbkTemp In Workbooks If Not wbkTemp.name = wbkZiel.name Then For Each wksQuelle In wbkTemp.Worksheets With wksZiel .Range("A" & lngRow).Value = wksQuelle.Range("W11").Value .Range("B" & lngRow).Value = wksQuelle.Range("B15").Value lngRow = lngRow + 1 End With Next wksQuelle End If Next wbkTemp End Sub

Hallo Jürgen,
vielen Dank! Ich hab Deine Anleitung befolgt und den Code um die Quellzellen ergänzt (s.u.).
Beim Starten des Makros passiert aber rein gar nichts. Keine Fehlermeldung, aber auch kein Einlesen von Daten in die aktivierte Tabelle (leere Mappe, leeres Arbeitsblatt).
Hast Du eine Idee, woran das liegen kann?
Grüße
Dominic

Sub EinlesenFrageboegen()
Dim wbkTemp As Workbook, wbkZiel As Workbook, wksZiel As Worksheet, wksQuelle As Worksheet
Dim lngRow As Long
Set wbkZiel = ThisWorkbook
Set wksZiel = wbkZiel.ActiveSheet
lngRow = wksZiel.UsedRange.Rows.Count
For Each wbkTemp In Workbooks
If Not wbkTemp.Name = wbkZiel.Name Then
For Each wksQuelle In wbkTemp.Worksheets
With wksZiel
.Range("A" & lngRow).Value = wksQuelle.Range("AG16").Value
.Range("B" & lngRow).Value = wksQuelle.Range("A19").Value
.Range("C" & lngRow).Value = wksQuelle.Range("A22").Value
.Range("D" & lngRow).Value = wksQuelle.Range("U28").Value
.Range("E" & lngRow).Value = wksQuelle.Range("U30").Value
.Range("F" & lngRow).Value = wksQuelle.Range("U32").Value
.Range("G" & lngRow).Value = wksQuelle.Range("U34").Value
.Range("H" & lngRow).Value = wksQuelle.Range("U36").Value
.Range("I" & lngRow).Value = wksQuelle.Range("U38").Value
.Range("J" & lngRow).Value = wksQuelle.Range("U40").Value
.Range("K" & lngRow).Value = wksQuelle.Range("U42").Value
.Range("L" & lngRow).Value = wksQuelle.Range("U44").Value
.Range("M" & lngRow).Value = wksQuelle.Range("AA44").Value
.Range("N" & lngRow).Value = wksQuelle.Range("A49").Value
.Range("O" & lngRow).Value = wksQuelle.Range("A54").Value
.Range("P" & lngRow).Value = wksQuelle.Range("A59").Value
.Range("Q" & lngRow).Value = wksQuelle.Range("A62").Value
.Range("R" & lngRow).Value = wksQuelle.Range("A65").Value
.Range("S" & lngRow).Value = wksQuelle.Range("AA69").Value
.Range("T" & lngRow).Value = wksQuelle.Range("AD69").Value
.Range("U" & lngRow).Value = wksQuelle.Range("R73").Value
.Range("V" & lngRow).Value = wksQuelle.Range("A76").Value
.Range("W" & lngRow).Value = wksQuelle.Range("AA79").Value
lngRow = lngRow + 1
End With
Next wksQuelle
End If
Next wbkTemp
End Sub

Beliebteste Forumthreads (12 Monate)

Einlesen von Daten aus anderen Excel-Dateien

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einlesen von Daten aus anderen Excel-Dateien

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread