Sub einlesen_aufrufen()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
Dim x As String
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsx),*xlsx")
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
Workbooks.Open Filename:=Datei
For i = 1 To Worksheets.Count
Set Quelle = ActiveWorkbook.Worksheets(i)
Set Ziel = ThisWorkbook.Worksheets.Add
ThisWorkbook.Worksheets(i).Name = ActiveWorkbook.Worksheets(i).Name
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
Next i
ActiveWorkbook.Close
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
End Sub