VBA: zweidimensionale Variablen (Array)

Dirk · 2007-12-02T10:13:28+00:00

Hallo, ich verzweifle gerade an einem (eher leichten) VBA-Problem: irgendwas stimmt an der unteren Schleife nicht(relevanter Code-Ausschnitt); VBA kompiliert zwar, aber die Berechnung im Excel-Sheet funktioniert nicht: #WERT!) Ich erläre kurz, was ich mit dieser Schleife bezwecken will. zz soll eine zweidimensionale Variable sein: zz (i, j). Dieser Variablen sollen in zwei verschachtelten Schleifen (äußere Schleife i, innere Schleife j) die jeweiligen Werte zugewiesen und erst mal dort (bei zz(i, j) ) abgelegt werden . Diese berechneten Werte heißen zi (1. Dimension) bzw. zj (2. Dimension). Diese wurden zuvor jeweils aus ui bzw uj berechnet ("InvNorm" ist eine zuvor definierte benutzerdef. Funktion). kn und ks snd eigtl. nur Konstanten. Das Besondere ist eben nur, dass ui und damit auch zi von i bzw. number_of_paths abhängt und uj bzw. zj von j bzw. steps_per_path. Wenn ui und uj von einer einheitlichen Größe abhängen würde (z.B. von number_of_paths) , wäre es leicht. Hoffentlich kann mir jemand helfen. ReDim zz(1 To number_of_paths, 1 To steps_per_path) ui = 0 uj = 0 For i = 1 To number_of_paths ui = (i - 1 + kn) / number_of_paths zi = InvNorm(ui) For j = 1 To steps_per_path uj = (j - 1 + ks) / steps_per_path zj = InvNorm(uj) zz(zi, zj) = Array(zi, zj) Next j Next i Vielen Dank vorab!!!! Dirk

Hallo Dirk,
ich weiß nicht, ob ich dein Problem richtig verstanden habe bzw. ich verstehe die dahinterstehende Aufgabenstellung nicht. Die Syntax ist prinzipiell richtig, aber:
1. Du arbeitest nicht mit einem 2-dimensionalen Array, sondern mit einem 3-dimensionalen
Du definierst zwar zz(1 to.., 1 to..) grundsätzlich 2-dimensional, aber durch die Zuweisung


zz(zi, zj) = Array(zi, zj)

wird jedem dieser Felder statt eines Wertes ein Array zugeweisen.
2. Ist dies so dein Wunsch? Wenn ja, was ist dein Problem? Der Zugriff auf ein einzelnes Element
Falsch sind


Dim a as integer
a=zz(1,2) 'Falsch, da hier ein ganzes Array zugewiesen würde
oder
Range("A1")=z(3,4) 'Falsch, da hier ein ganzes Array zugewiesen würde

Korrekt wäre


Dim a as integer
a=zz(1,2)(0) 'zi-Wert des Feldes deines 2-dim. Array's
oder
Range("A1")=z(3,4) 'zj-Wert des Feldes deines 2-dim. Array's

Ich lass mal offen, falls ich dich mißverstanden habe.
Gruß
Harry

Hallo Dirk,
Daniel hat im Parallelthread recht, vielleicht nur als Hinweis von mir


So, und jetzt hätte ich gerne 2 x 3 = insges. 6 zz-Werte (und zwar als Array-Variable):
1) zz(1,1) = (5,3)
2) zz (1,2) = (5,6)
3) zz(1,3) = (5,11)
4) zz(2,1) = (8,3)
5) zz(2,2) = (8,6)
6) zz(2,3) = (8,11).

Falsch, du hast hier nicht 6 zz-Werte, sondern 6 Wertpaare (UNTERSCHIED)
D.h. entweder du verhältst dich so, wie von mir oder Daniel vorgeschlagen, oder du kriegst nix vom Nikolaus.
Aber Alternative: Du hast keine 6 Werte, sondern im Beispiel nur 5, nämlich für zi nur 5 und 8 und für zj nur 3,6,11 und daraus resultieren 6 eindeutige Wertkombinationen.
Nimm also zwei 1-dimensionale Array's und fülle sie so


ReDim zzi(1 To number_of_paths)
ReDim zzj(, 1 To steps_per_path)
ui = 0
uj = 0
For i = 1 To number_of_paths
ui = (i - 1 + kn) / number_of_paths
zi = InvNorm(ui)
zzi(i)=zi
Next i
For j = 1 To steps_per_path
uj = (j - 1 + ks) / steps_per_path
zj = InvNorm(uj)
zzj(i)=zj
Next j

Dann kannst du alle Wertpaare über die Kombination zzi(x), zzj(y) abgreifen.
Dies entspricht inhaltlich dem bereits genannten zz(x,y)(0 oder 1).
Gruß
Harry

VBA: zweidimensionale Variablen (Array)

Forumthread: VBA: zweidimensionale Variablen (Array)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial