Sub datei_oeffnen()
    Dim xl As Object
    Dim test As String
 
Set xl = CreateObject("EXCEL.application")
With xl
.workbooks.Open (pfad & dateiname_neu)
.Visible = True
test = .worksheets(ArBl).cells(8, 8).Value
 
'Hier soll gespeichert werden
.workbooks.worksheets(ArBl).save
 
 
.workbooks.Close
End With
Set objXL = Nothing
 
MsgBox (test)
 
End Sub