Option Explicit
Sub DatenHolen()
Const C_ZIEL As String = "ArrakisStdExport"
Const C_TODO As String = "A1:Q112"
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xlsx", , "Bitte jeweiligen Arrakis Std.-Export öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
On Error GoTo fail
Set WSZiel = WBZiel.Worksheets(C_ZIEL)
On Error GoTo 0
Set WBQuelle = Workbooks.Open(ExportDatei)
WBQuelle.Worksheets("Auswertung nach AP").Range(C_TODO).Copy WSZiel.Cells(1)
WBQuelle.Close False
fail:
Select Case Err.Number
Case 0
Case 9
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WSZiel.Name = C_ZIEL
Resume
Case Else
Call MsgBox("unbekannter Fehler in DatenHolen()", vbExclamation)
End Select
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub