Daten aus anderen Excel-Sheets kopieren

[Flotter Feger]

Hallo David,

theoretisch wäre das deine Code um die Daten zu kopieren.

Allerdings ... und das ist ein Problem, weiß ich nicht, wie Excel erkennen kann, welche der Dateien nun Datei1 und welche Datei4 ist.
Erzähle mal was dazu ...

Code:

Option Explicit

Sub Komplett()
Dim i As Byte
Dim Datei(1 To 4)
Dim UE As Worksheet
Dim Pfad As String

Const Pfad = "C:\1\" ' <-- anpassen

Set UE = ThisWorkbook.Worksheets("Übersicht")

'*** Problem: wie erkennt Excel welche
'*** Datei welche der Dateien sein soll
Datei(1) = Datei1 ' ??
Datei(2) = Datei2 ' ??
Datei(3) = Datei3 ' ??
Datei(4) = Datei4 ' ??

For i = 1 To 4
    Workbooks.Open Datei(1)
    With Datei(i)
        With Worksheets(1)
            .Range("C4:C13").Copy UE.Range("B2").Offset(0, i - 1)
            .Range("C22:C39").Copy UE.Range("B14").Offset(0, i - 1)
            .Range("D22:D39").Copy UE.Range("B35").Offset(0, i - 1)
            .Range("E22:E39").Copy UE.Range("B56").Offset(0, i - 1)
            .Range("C46:C67").Copy UE.Range("B77").Offset(0, i - 1)
            .Range("E46:E67").Copy UE.Range("B102").Offset(0, i - 1)
        End With
       
        With Worksheets(2)
            .Range("B2:B77").Copy UE.Range("I2").Offset(0, i - 1)
            .Range("C2:C77").Copy UE.Range("O2").Offset(0, i - 1)
        End With
    End With
    Workbooks(Datei(1)).Close Savechanges:=False
Next i
End Sub