[gelöst] array füllen

[clag]

Hall Kenner und Könner
versuche gerade nach ein paar Jahren abstinez ein makro zu erstellen welches eine bestimmte fixe an Zahlengruppen benötig 12 dreier Gruppen, die würde ich gern gleich als erstes in ein Array schreiben für ein einfaches Array geht das ja mit

Code: Alles auswählen

za = Array(1000, 800, 500, 200, 50, 5)

für drei einzelne Arrays

Code: Alles auswählen

zax = Array(1000, 800, 500, 200, 50,12, 5)
zay = Array(900, 600, 400, 150, 40, 10, 4)
zaz = Array(32, 24, 16, 8, 6, 4, 2)

aber wie bekomme ich die Zahlen am einfachsten in ein Array ?

Code: Alles auswählen

Dim za (1 to 3 , 1 t0 12 )

und dann ?

[mikeleb]

Hallo,

Code: Alles auswählen

za =Array(Array(1000, 800, 500, 200, 50,12, 5), Array(900, 600, 400, 150, 40, 10, 4), Array(32, 24, 16, 8, 6, 4, 2))

[clag]

ahhh .. allerbesten Dank
Wissen ist Macht

[clag]

hmmm zu früh gefreut

auf diese Weise bekomme ich keine a
Anwort aus dem Arry

Code: Alles auswählen

za = Array(Array(3000, 1763, 755, 587, 352, 278, 135, 66, 33), Array(2382, 1411, 671, 535, 332, 265, 132, 66, 33), Array(1764, 1059, 588, 482, 312, 252, 130, 66, 33)) 
print za(2, 4)

bringt Fehler Objectvariable nicht belegt
was mache ich falsch ?

[Gast]

die Arrays werden angelegt habe ich mit

Code: Alles auswählen

print isarray(za) 
print Ubound(za)

geprüft, aber wie es scheint werden die Werte nicht übernommen ??

[mikeleb]

Hallo,
mein Ansatz liefert ein Array von Arrays. Der Zugriff wäre hier:

Code: Alles auswählen

print za(2)(4)

[clag]

nochmals mein Dank Mikeleb
mit den so gesetzten Klammern funktioniert es auf Anhieb...