[Excel] Verweis auf andere Datei und Tabellenblätter mit Zellinhalt herstellen

Option Explicit

Private Const C_FILENAMEFORMAT = "00\.xlsx"

Private wb(1 To 12) As Workbook 'Die 12 Sheets
Private isLoaded As Boolean     'FLag ob die Sheets bereits offen sind

'/**
' * Berechnet die Summe für die entsprechende ID
' * @param  Long        ID
' * @param  String      Feldadresse
' * @param  String      Sheet-Format (Siehe F1-Hilfe für Formatbefehl in VBA): Default '0'
' * @return Double      Eine Kommazahl
' */
Public Function getSumPerId( _
        ByVal iId As Long, _
        Optional ByVal iRangeAdr As String = "$J$27", _
        Optional ByVal iSheetFormat As String = "0" _
) As Double
    Dim i As Integer
   
    'Falls die Sheets noch nicht geöffnet sind, das nachholen
    If Not isLoaded Then openBooks
    'Die Summe des Ranges ermitteln und mit den anderen zusammenzählen
    For i = 1 To 12
        getSumPerId = getSumPerId + wb(i).Worksheets(CStr(iId)).Range(iRangeAdr).Summary
    Next i
    Dim rng As Range
End Function

'/**
' * öffnet die 12 Sheets im Lesemodus
' */
Public Sub openBooks()
    Dim i As Integer
    Dim folderPath As String
    Dim filePath As String
   
    folderPath = ActiveWorkbook.Path
   
    For i = 1 To 12
        filePath = folderPath & "\" & Format(1, C_FILENAMEFORMAT)
        wb(i) = Application.Workbooks.Open(filePath, , True)
    Next i
   
    isLoaded = True
End Sub

'/**
' * Schliest die 12 Sheets
' */
Public Sub closeBooks()
    Dim i As Integer
    For i = 1 To 12
        wb(i).Close
    Next i
   
    isLoaded = False
End Sub

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    closeBooks
End Sub

=getSumPerId(A2)

=getSumPerId(A2; "A3:A10")