---

Hallo,

ich möchte einem Parameter mittels Script mehrere Werte zuweisen, die ich vorher auslese. Die Anzahl der Werte ist variable.

Hier mein Quellcode:

---------------------------------------------------------------------
Dim String1 As String

Dim  arrayOfVariantOfBSTR1 As Variant
ReDim arrayOfVariantOfBSTR1(Anzahl)

Set strParam1 = myPart.Parameters.Item("Test")

For i = 1 to Anzahl

String1 = myPart.AxisSystems.item(i).name
arrayOfVariantOfBSTR1(i) = String1

Next

strParam1.SetEnumerateValues arrayOfVariantOfBSTR1

---------------------------------------------------------------------

Leider wird nur der letzte Wert des Arrays an den Parameter übergeben.

Definiere ich das Array so

Dim arrayOfVariantOfBSTR1(4)
arrayOfVariantOfBSTR1(0) = "1"
arrayOfVariantOfBSTR1(1) = "2"
arrayOfVariantOfBSTR1(2) = "3"
arrayOfVariantOfBSTR1(3) = "4"
arrayOfVariantOfBSTR1(4) = "5"

strParam1.SetEnumerateValues arrayOfVariantOfBSTR1

funktioniert es.

Gibt es eine Möglichkeit einem Parameter eine variable Anzahl von Werten zuzuweisen?????????

MfG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo nochmal

ich habe das Problem selber gelöst, hier der richtige Quellcode

---------------------------------------------------------------------

Dim String1 As String

Dim  arrayOfVariantOfBSTR1 As Variant
ReDim arrayOfVariantOfBSTR1(Anzahl)

Set strParam1 = myPart.Parameters.Item("Test")

For i = 0 to Anzahl-1

String1 = myPart.AxisSystems.item(i+1).name
arrayOfVariantOfBSTR1(i) = String1

Next

strParam1.SetEnumerateValues arrayOfVariantOfBSTR1

---------------------------------------------------------------------

MfG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP