Array aus einem String heraus befüllen
14.10.2003 18:25:05
Frank
Hallo hilfreiche Forumsleser,
ich habe ein Problem mit einer Konsolidierungsfunktion in VBA.
Bisher habe ich mir die Namen der einzelnen Blätter mittels VBA ausgelesen und diese mitsamt dem Bereich in einen String geschrieben.
Die VBA-Konsolidierungsfunktion benötigt nun aber einen Array. Das Problem ist, dass die Funktion sowohl unter Excel XP, als auch unter Excel 97 laufen muß.
Ich hoffe Ihr könnt mir weiterhelfen. Hier mal auszugweise der Code:
(wenn ich den Code so ablaufen lasse erhalte ich immer den "Laufzeitfehler '1004' Anwendungs oder Objektdefinierter Fehler"...)
j = ActiveWorkbook.Worksheets.Count
For i = 2 To j
Name = wb.Worksheets(i).Name
Kette = Kette & """'" & WBName & "\[zusammenfassung.xls]" & Name & "'!R31C19:R101C58"","
Next i
Kette = Right(Kette, Len(Kette) - 1)
Kette = Left(Kette, Len(Kette) - 2)
wb.Worksheets(1).Select
Range("S31").Select
Selection.Consolidate Sources:=Array(AKette), Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Wie schon geschrieben. Ich hoffe, dass ihr mir weiterhelfen könnt...
Herzlichen Dank für Eure Mühen im voraus
Frank