Sub DateiOeffnen()
Dim wbkOeffnen As Workbook
Dim varDatei As Variant
Dim rngResult As Range
varDatei = Application.GetOpenFilename(, , "Datei auswählen", , False)
If varDatei = False Then
MsgBox "Abgebrochen"
Else
Set wbkOeffnen = Workbooks.Open(varDatei, , , , , , , , , , , , False)
End If
On Error Resume Next
Set rngResult = ActiveSheet.UsedRange
With rngResult
Debug.Print .AddressLocal
End With
On Error GoTo 0
If rngResult Is Nothing Then
Exit Sub
End If
Exit Sub
End Sub