Re: Consolidate
27.11.2002 15:00:24
Coach
Hallo Uwe,im Prinzip geht das so:
Sub Konsolidieren()
Dim wb As Worksheet
Dim Tabellen
Tabellen = Null
For Each wb In ThisWorkbook.Worksheets
If wb.Name <> ActiveSheet.Name Then
If IsNull(Tabellen) Then ReDim Tabellen(1 To 1) Else ReDim Preserve Tabellen(1 To UBound(Tabellen) + 1)
Tabellen(UBound(Tabellen)) = "'[" & ThisWorkbook.Name & "]" & wb.Name & "'!R1"
End If
Next wb
ActiveSheet.Cells(1, 1).Consolidate sources:=Tabellen, Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
End Sub
Im Beispiel werden in der 1.Zeile der aktiven Tabelle die Werte der jeweils 1.Zeile der anderen Tabellen summiert.
Gruß Coach