Public Sub test()
Dim wkbQuelle As Excel.Workbook
Dim wkbZiel As Excel.Workbook
Dim Neuname As String
Set wkbZiel = Application.Workbooks.Add
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xls*", , "Bitte die Datei RISK_3 zum Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
Set wkbQuelle = Workbooks.Open(ExportDatei)
wkbQuelle.Worksheets(1).Copy After:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
end sub