Sub DateiOeffnen()
Dim wbkOeffnen As Workbook
Dim varDatei As Variant
Dim rngResult As Range
varDatei = Application.GetOpenFilename(("Excel Datei(en) (*.xlsx),*.xlsx, (*.csv),*.csv"), , "Datei auswählen", , False)
If varDatei = False Then
MsgBox "Nicht Aufgeben", vbExclamation, p_cstrAppMsgTitel
Else
Set wbkOeffnen = Workbooks.Open(varDatei, , , , , , , , , , , , False)
End If
On Error Resume Next
Set rngResult = ActiveSheet.UsedRange
With rngResult.Copy
End With
On Error GoTo 0
If rngResult Is Nothing Then
Exit Sub
End If
Exit Sub
End Sub