Code

Sub Geschlossene_Arbeitsmappe() 
 
Dim sPfad As String 
Dim wbQuelle As Workbook 
 
'ScreenUpdating und PopUps deaktivieren 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
 
'Dateipfad der Quelldatei 
sPfad = "C:UserskaiweDesktopFebruary.xlsx" 
 
'Prüfen, ob Datei existiert 
If Dir(sPfad) <> "" Then 
 
    'Arbeitsmappe öffnen 
    Set wbQuelle = Workbooks.Open(sPfad) 
     
    'Daten kopieren und einfügen 
    wbQuelle.Worksheets(1).Range("A2:E7").Copy ThisWorkbook.Worksheets(1).Range("A8") 
     
    '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