ReDim Preserve eines transponierten 2D Arrays

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…an dem 0 To n liegen könnte, Tengal;
viell würde es ja mit 1 To n klappen. Aber bevor wir hier weiter rätselraten und testen, schlage ich dir lieber eine andere Methode vor, bei der das bestimmt fktioniert:
Was hältst du davon, für jede Zeile einen einzelnen horizontalen Vektor(4) anzulegen bzw einen ZellBereich zeilenweise derart in einen HptVektor(20) aufzunehmen. Dann erhältst du einen 1dimensionalen senkrechten (Haupt-)Vektor über die Zeilen, dessen Elemente 1dimensionale waagerechte Vektoren über die Spalten der jeweiligen Zeile sind. Sind das immer genausoviele Spalten, die Matrix also rechteckig, ist so etwas prinzipiell auf ZellBereiche abbildbar, muss in einer SubProzedur oder Fkt einer solchen nur noch 2× transponiert wdn. In einer in einer ZellFml eingesetzten Fkt (UDF) kann das sogar entfallen, weil Xl das selber macht.
Der Vorteil des Ganzen ist, dass jeder dieser Vektoren einzeln ReDimmt wdn kann, also auch der HptVektor über die Zeilen. Ist das Füllen seiner Elemente beendet, kann er auf den Stand einer Lauf- bzw ZählVariablen ReDimmt wdn (ggf -1). Ein weiterer Vorteil ist, dass so jede Zeile auch weiterhin einzeln angesprochen wdn kann, zB mit myArray(i), der Einzelwert eines ZeilenVektors dann mit myArray(i)(j). Außerdem kann man auch noch eine Kopie erzeugen, bei der der HptVektor den Spalten folgt, denen dann die ZeilenWerte der jeweiligen Spalte zugeordnet wdn. Dadurch könnte man dann auch eine einzelne Spalte ansprechen.
Durch ein (abschließendes) Transponieren entsteht wieder ein normales 2dimensionales Datenfeld (VBA-Array) mit allen seinen Beschränkungen.
Dazu haben Andere und auch ich schon einiges in verschiedenen XlForen geschrieben, auch hier erst kürzlich wieder (Betreff: Array-Typen).
Luc :-?

Hi
1. zum dimensionieren eines Arrays brauchst du immer einen oberen und einen unteren Grenzwert (Ubound und LBound):
Redim X(untere_Grenzwert TO oberer_Grenzwert)
Da VBA eine komfortable Probrammiersprache sein will, erlaubt es dir den unteren Grenzwert wegzulassen und setzt dann automatisch als unteren Grenzwert die 0 ein bzw die 1, wenn du Option Base 1 verwendest.
2. die Funktion Worksheetfunction.Transpose restrukturiert die Grenzwerte und setzt als unteren Grenzwert immer die 1 und berechnet dann den oberen Grenzwert entsprechend der Anzahl der Elemente.
Bedenke, dass Worksheetfunction.Transpose eigentlich eine Funktion ist, die auf einem Tabellenblatt mit Excelzellen eingesetzt wird und da ist es halt so üblich, dass die Linke Obere Zelle immer den Index (1, 1) hat.
Wenn du unter Beibehaltung der originalen Grenzwerte transponieren willst, musst du das selber programmieren:


Option Explicit
Sub test()
Dim X, Y, Z
ReDim X(39, 4)
Y = WorksheetFunction.Transpose(X)
Z = myTranspose(X)
Debug.Print "X:", LBound(X, 1); "|"; UBound(X, 1), LBound(X, 2); "|"; UBound(X, 2)
Debug.Print "Y:", LBound(Y, 1); "|"; UBound(Y, 1), LBound(Y, 2); "|"; UBound(Y, 2)
Debug.Print "Z:", LBound(Z, 1); "|"; UBound(Z, 1), LBound(Z, 2); "|"; UBound(Z, 2)
End Sub
Function myTranspose(ARR As Variant) As Variant
Dim X As Long, Y As Long
Dim Erg As Variant
ReDim Erg(LBound(ARR, 2) To UBound(ARR, 2), LBound(ARR, 1) To UBound(ARR, 1))
For X = LBound(ARR, 1) To UBound(ARR, 1)
For Y = LBound(ARR, 2) To UBound(ARR, 2)
Erg(Y, X) = ARR(X, Y)
Next
Next
myTranspose = Erg
End Function

das ist sowieso besser als Worksheetfunction.Transpose, weil Worksheetfunction.Transpose nur eine limitierte Anzahl von Elementen verarbeiten kann und deutlich langsamer ist als die selbstgeschriebene Funktion (wie gesagt, Worsheetfunction.Transpose verarbeitet normalerweise Excelzellen und eine VBA-Arrays)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

ReDim Preserve eines transponierten 2D Arrays

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

51 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ReDim Preserve eines transponierten 2D Arrays

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

51 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread