Konsolidieren
06.08.2004 14:43:29
Maximilian
Wer kann mir bitte bei meinem Problem helfen.
Aus etwa 40 Dateien sollte eine Konsolidierung gemacht werden. Allerdings bringt er mir bei aufruf nachfolgenden Codes immer die Fehlermeldung
Konsolidierungsbezug ist ungültig.
Mach ich es manuel, dann funktioniert es. Habe ich einen Fehler in meinem Source?
Danke für die Hilfe
Maximilian
Private Sub CommandButton1_Click()
Dim i&, arr$(1 To 4)
For i = 1 To 4
If Tabelle2.Cells(i, 1).Value <> Empty And Tabelle2.Cells(i, 2).Value <> Empty Then
arr(i) = "'" & ThisWorkbook.Path & _
"\[" & Tabelle2.Cells(i, 1).Value & "]" & _
"Budget + Resource Planning" & "'!R129C4:R137C32"
Debug.Print arr(i)
End If
Next i
ActiveSheet.Range("A1").Consolidate Sources:=arr(), Function:=xlSum, _
TopRow:=False, leftColumn:=False, CreateLinks:=False
End Sub