VBA 2D- oder 3D-Array?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi

Statt 2- und 3- dimensional könntest du das ganze auch eindimensional aufbauen.

Dh das Basis-Array ist immer eindimensional
Wenn man eine zweite Dimension benötigt, dann "füttert" man das Basis-Array nicht mit einem Einzelwert, sonden wiederum mit einem Array.
Also nicht: arr(1) = "x"
Sondern arr(1) = Array("x", "y", "z")

Um die dritte Dimension erzeugen, wird dann das das Array der zweiten Ebene nicht mit Einzelwerten, sondern mit Arrays bestückt.

So kann man beliebig viele Dimensionen erzeugen.

Vorstellen kannst du dir das so:
Bisherige Methode:

Einzelwert = Perle
Eindimensionalen Array = Perlenschnur
Zweidimensionale Array = Perlenteppich
Dreidimensionales Array = Perlenwürfel

Neue Methode:
Einzelwert = Perle
Eindimensionalen Array = Perlenschnur
Zweidimensionales Array = Perlenschnur, die nicht aus Einzelperlen, sondern aus weiteren Perlenschnüren besteht

Um in diesem Konstrukt herauszufinden, ob du ein 2- oder 3-d-array hast, kannst du den Variablentyp eines Elements der zweiten Ebene abfragen. [vartype(x(0)(0))]
Ist dieser ein Einzelwert, hast du nur zwei Dimensionen, ist dieser ein Array, eine dritte.

Allerdings muss man sich hierfür in das Konstrukt: "Mehrdimensionalität durch Verketten von Eindimensionalitäten erzeugen", hineindenken, was schon sehr abstrakt ist.

Also doch besser "on Error" 😉

Gruß Daniel

Hallo,

wenn du in VBA eine 3. Dimension oder besser 2+ benötigst, dann wäre das beim Dimensionieren so beispielhaft erzeugt - X Achse 5 Zellen / Y1 2 Zellen Y2 3 Zellen:
ReDim arr(1 To 5, 1 To 2, 1 To 3)
Die "3. Dimension" stellt hier eine Erweiterung in die Tiefe der 2. Dimension dar - hat vielleicht sinnbildlich ein ähnliches Verhalten wie Redim Preserve nur mit Erzeugung einer neuen Unterdimension der letzten Dimension statt mit Änderung der Zellen der 2. Dimension.

Wenn nur die X- und Y- Achse benötigt wird dann beispielhaft so:
ReDim arr(1 To 5, 1 To 2)

Wenn du eine Unterscheidung von : ReDim arr(1 To 5, 1 To 2, 1 To 3) und ReDim arr(1 To 5, 1 To 2) benötigst, braucht es nur ein Bolean um das jeweils gewünschte Array zu erzeugen.

Eine Echte 3. Dimension kann VBA nicht. In wie weit man mit API Zugriff dies verbiegen kann, habe ich mich auch noch nicht damit beschäftigt.

Eine Bemerkung zu On Error.

Benutze bei Verwendung von Arrays dies nur, wenn es keinen anderen Weg gibt. Also nicht benutzen, weil es immer einen anderen Weg gibt.
Arrays sind schön zickig und verlangen vom Anwender einen exakt berechneten Umgang, was zur Genauigkeit zwingt. Willst du dies mir On Error aushebeln?

Gruß Uwe

Function getDimension(var As Variant) As Long Dim i As Long Dim tmp As Long On Error GoTo Err For i = 1 To 20 tmp = UBound(var, i) Next Err: getDimension = i - 1 End Function

Sub Test() Dim TVRepArr As Variant 'Test "null-D" Debug.Print "Test 0D: ", getDimension(TVRepArr) 'Test von 2D ReDim TVRepArr(1 To 14, 1 To 6) Debug.Print "Test 2D: ", getDimension(TVRepArr) 'Test von 3D ReDim TVRepArr(1 To 14, 1 To 6, 1 To 3) Debug.Print "Test 3D: ", getDimension(TVRepArr) End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread