Code

 Sub Datei_auswaehlen() 
 
Dim Dateiname As Variant 
Dim wbQuelle As Workbook 
Dim LetzteZeile As Long 
 
'ScreenUpdating und PopUps deaktivieren 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
 
'Benutzer Datei auswählen lassen 
Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls*),*.xls*") 
 
'Wurde eine Datei ausgewählt? 
If Dateiname <> False Then 
 
    LetzteZeile = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row 
 
    'Arbeitsmappe öffnen 
    Set wbQuelle = Workbooks.Open(Filename:=Dateiname) 
     
    'Daten kopieren und einfügen 
    wbQuelle.Worksheets(1).Range("A2:E7").Copy 
    ThisWorkbook.Worksheets(1).Range("A" & LetzteZeile + 1).PasteSpecial 
     
 
    'Arbeitsmappe schließen 
    wbQuelle.Close SaveChanges:=False 
     
End If 
 
'ScreenUpdating und PopUps aktivieren 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub