schnell zweidim- Array schreiben

Sub Matrix_Schreiben() Dim Vektor, Matrix Vektor = Array(2, 3, 4) 'So geht's nicht: 'Matrix = Array((2, 3), (10, 20), ("k", "t")) 'Matrix soll 2x3 sein. Debug.Print Matrix(1, 1) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Florian,

willkommen in Visual Basic!
Wer gewohnt ist, mit moderneren Sprachen zu arbeiten (Python, C++, ...), muss in VBA Abstrich machen.
Die direkte Befüllung einer mehrdimensionalen Array geht nicht. Nicht mal 2.

Folgender Test:

Sub test()
Dim Arr
Dim Arr2()
Dim x, y
    
' Array of Array erzeugen.
    Arr = Array(Array(1, 2), Array(3, 4), Array(6, 7, 8))
'Länge ("Size") der zweiten Dimension ermitteln
    For x = LBound(Arr) To UBound(Arr)
        If UBound(Arr(x)) > y Then y = UBound(Arr(x))
    Next
'Länge ("Size") der ersten Dimension ermitteln
    x = UBound(Arr)
'2-dimensional Ziel-Array dimensionieren
    ReDim Arr2(x, y) 'Note: Nur beim ersten Init kann man beide Dimensionen setzen, sonst nur die zweite beeinflüssen
'Daten übertragen
    For x = LBound(Arr) To UBound(Arr)
        For y = LBound(Arr(x)) To UBound(Arr(x))
            Arr2(x, y) = Arr(x)(y)
        Next
    Next
End Sub

Man erzeugt einen Array of Array, prüft die Dimensionierung (ich war faul und habe nur 2 Dim verwendet),
dimensioniert den Ziel-Array, und überträgt die Daten.
Disclaimer: ich verwende LBound, lower bound, anstatt null. Es ist aber sinnlos, weil es nicht functioniert, wenn LBound > 0 ist, wegen Redim Arr2(x, y)

Also ein Einzeiler sieht anders aus :-)
Es sei denn man packt das gesamte in einer Function.

Unbeantwortet bleibt, ob es Sinn ergibt, umzutopfen.

VG
Yal

Nein, so geht's auch nicht.
So wird Matrix nicht zweidimensional, sondern eindimensional mit ebenfalls eindimensionalen Arrays als Werten.
Man kann Matrix so nicht direkt in die Tabelle zurückschreiben und auch beim Programmieren muss man etwas anders vorgehen als bei einem echten zweidimensionalen Array:
das fängt damit an, dass du die 2. Dimension nicht abfragen kannst (Ubound(Matrix, 2)), weil die bei jedem Wert anders sein könnte und man muss auch die Einzelwerte anders ansprechen: Matrix(0)(0) statt Matrix(0, 0)

um ein echtes zweidimensionales Array zu erhalten, muss man dieses Konstrukt noch transponieren:
je nach anordnung der Datein ein- oder zweimal:

Matrix = Array(Array(2, 3), Array(10, 20), Array("k", "t"))
Matrix = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Matrix))

Matrix = Array(Array(2, 10, "k"), Array(3, 20, "t"))
Matrix = WorksheetFunction.Transpose(Matrix)

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread