Konsolidieren
Stefan
Ich möchte aus einer geschlossenen Mappe Daten Konsolidieren.
Mit dem folgenden Code funktioniert das auch:
'-------------------------------------------------------------------------------------------------------------------------------
[Tabelle1!A1].Select
Selection.Consolidate Sources:=Array("'C:\Users\Administrator\Desktop\[Konsol1.xls]Tabelle1'!R1C1:R10C1"), Function:= _
xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
'-------------------------------------------------------------------------------------------------------------------------------
Ich möchte aber den "Pfad" und den "Dateinamen" aus den Zellen auslesen lassen nur leider funktioniert der Code nicht:
'-------------------------------------------------------------------------------------------------------------------------------
Dim Pfad As String
Dim Name As String
Pfad = Range("Tabelle1!A20").Text
Name = Range("Tabelle1!A21").Text
Selection.Consolidate Sources:=Array("'Pfad\[Name]Tabelle1'!R1C1:R10C1"), Function:= _
xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
'-------------------------------------------------------------------------------------------------------------------------------
Hat von euch jemand einen Rat dafür.
Danke Stefan