2 Dimensionales Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Michael,
ein Range-Objekt hat die Eigenschaft Value, es ist sogar seine Default-Eigenschaft bei Wiedergabe, denn ein Objekt kann nur referenziert, nicht „wiedergegeben“ wdn. Transpose erzeugt ohnehin ein Array aus Werten, nicht aus ObjektBezügen, also ist die Value-Angabe nicht falsch, sondern nur überflüssig. Ein diskreter Bereich kann allerdings nicht transponiert wdn.
Dein Fall liegt allerdings noch recht günstig, Basti,
und könnte per Fml mit INDEX in eine zusammenhängende DatenfeldMatrix transferiert wdn:
A5:C7: {=INDEX((A1:A3;C1:D3);ZEILE(1:3);{1.1.2};{1.2.2})}
In diesem einfachen Fall fktioniert dann sogar das Transponieren:
A10:C12: {=MTRANS(INDEX((A1:A3;C1:D3);ZEILE(1:3);{1.1.2};{1.2.2}))}
Das könntest du zwar auch mit WorksheetFunction.Index probieren, aber es steht zu befürchten, dass das so nicht fktioniert, weil die Unterstützung durch die Xl-Steuerung in VBA normalerweise nicht gegeben und auch mit vbFkt Evaluate hier nicht zu erreichen ist, weil/wenn die benötigte ZellAuswahl für das Ergebnis fehlt.
Mit VBA könntest du aber mit UDF so vorgehen, falls es sich um Zahlen handelt (als ZellFml dargestellt):
E5:G7: {=VSplit(A1:A3&" "&C1:C3&" "&D1:D3;;1)} bzw
E10:G12: {=MTRANS(VSplit(A1:A3&" "&C1:C3&" "&D1:D3;;1))}
Gruß, Luc :-?
Besser informiert mit …

Hi
wenn du eine "Lücken-Range" in ein 2D-Array übernehem willst, ist der einfachste Weg folgender:
1. kopiere die "Lücken-Range" und füge sie an einer freien Stelle wieder ein.
Beim Einfügen schießt Excel die Lücken.
2. übernehme dann den eingefügten Bereich ins Array
dh in etwa so:

Range("A1:A3,C1:D3").Copy
Range("x1").PasteSpecial xlpastevalues
Arr = Range("X1").CurrentRegion.Value
Range("x1").CurrentRegion.ClearContents

wenn du es per Makro machen willst, müssest du erstmal ermitteln, wie groß das Zielarray werden wird und dann per Schleife jeden Wert einzeln aus der Range ins Array übertragen.
dabei brauchst du im Prinzip 3 ineinander geschachteltet Schleifen:
1. eine Schleife über alle Blöcke der Range (die Blöcke sind die Lückenlosen, rechteckigen Zellbereiche aus denen die gesamtrange zusammengesetzt ist)
2. eine Schleife über die Spalten des Blocks
3. eine Schleife über die Zeilen des Blocks:

Dim ARR
Dim Block As Range, BL
Dim z As Long
Dim sBlock As Long
Dim sArr As Long
Dim Zeilen As Long, Spalten As Long
Set XXX = Range("A1:A3,C1:D3")
ReDim ARR(1 To XXX.Rows.Count, 1 To Intersect(XXX, Rows(1)).Cells.Count)
For Each Block In XXX.Areas
BL = Block.Value
For sBlock = 1 To UBound(BL, 2)
sArr = sArr + 1
For z = 1 To UBound(BL, 1)
ARR(z, sArr) = BL(z, sBlock)
Next
Next
Next

Gruß Daniel

Sub sdds() Dim arr Dim rng As Range, CcountArea As Range Dim a As Long, r As Long, c As Long, Carr As Long, Ccount As Long, Rcount As Long Set rng = Range("A1:A3,C1:D3,F1:F3") For Each countArea In rng.Areas Ccount = Ccount + countArea.Columns.Count If countArea.Rows.Count > Rcount Then Rcount = countArea.Rows.Count Next ReDim arr(1 To Rcount, 1 To Ccount) For r = 1 To Rcount For a = 1 To rng.Areas.Count For c = 1 To rng.Areas(a).Columns.Count Carr = Carr + 1 Debug.Print rng.Areas(a).Cells(r, c) arr(r, Carr) = rng.Areas(a).Cells(r, c) Next Next Carr = 0 Next With Me.ListBox1 .Clear .ColumnCount = Ccount .List = arr End With End Sub

Sub sdds_Michael() Dim arrIn, arrOut, nurDie Dim r As Long, c As Long nurDie = Array(0, 1, 3, 4, 6) ' A, C, D, F ' das ist ein 0-basiertes Array, der erste Wert wird übergangen arrIn = Range("A1:F3") ReDim arrOut(1 To UBound(arrIn), 1 To UBound(nurDie)) For c = 1 To UBound(nurDie) For r = 1 To UBound(arrIn) arrOut(r, c) = arrIn(r, nurDie(c)) Next Next Range("G10").Resize(UBound(arrOut), UBound(arrOut, 2)) = arrOut 'With Me.ListBox1 '.Clear '.ColumnCount = Ccount '.List = arr 'End With End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Dimensionales Array

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread