Auf Inhalt aus anderer Excel Tabelle zugreifen

Public Sub CSVtoArray()
Dim members As Object
Set members = CreateObject("Scripting.Dictionary")
Dim row As Long
Dim maxRow As Long
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Worksheets(1)
maxRow = sheet.Cells(sheet.Rows.Count, "A").End(xlUp).row
Dim curName As String
Dim curHour As String
curName = sheet.Cells(row, 1)
curHour = sheet.Cells(row, 7)
If Not members.Exists(curName) Then
Call members.Add(curName, curHour)
Else
members.Item(curName) = Val(members.Item(curName)) + Val(curHour)
End If
End Sub