Public Sub Import()

Dim VarDateiPfad As String
Dim YSource As Workbook
Dim XSource As Workbook
Dim Destination As Workbook

Set Destination = ActiveWorkbook

'Startet "Import" Dialog und legt ausgewählte Datei in "VarDateiPfad" ab
VarDateiPfad = Application.GetOpenFilename("Exceldateien,*.xls*", 1)

'Öffnet die ausgewählte Datei
Set YSource = Workbooks.Open(Filename:=VarDateiPfad, ReadOnly:=False)


    YSource.Sheets("Y").UsedRange.Copy
        Destination.Sheets("Y").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        YSource.Close


VarDateiPfad = Application.GetOpenFilename("Exceldateien,*.xls*", 1)

'Öffnet die ausgewählte Datei
Set XSource = Workbooks.Open(Filename:=VarDateiPfad, ReadOnly:=False)

    XlisteSource.Sheets("X").UsedRange.Copy
        Destination.Sheets("X").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        XSource.Close

Worksheets("Transfer").Range(Cells(VarZeilenTransfer, 1), Cells(VarZeilenTransfer, VarSpaltenTransfer)).Interior.Color = RGB(229, 229, 229)

VarZeilenTransfer = Worksheets("Transfer").Cells(Rows.Count, 1).End(xlUp).Offset(1).row