Kannst ja umprogrammieren:
Option Explicit
Sub noob()
Dim ImportDatei As Variant
Dim wbImport As Workbook
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", Title:="Eine Datei auswählen")
If ImportDatei = False Then Exit Sub
Set wbImport = Workbook.Open(ImportDatei)
wbImport.Worksheets("Zusammenfassung").UsedRange.Copy
ThisWorkbook.Worksheets("Import1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbImport.Close savechanges:=False
Set wbImport = Nothing
End Sub |