Array Zeile in anderes Array einlesen.

Sub ArrayZeileinAnderesArrayEinlesen() Dim arrAlleDaten Dim arrAuszugDaten Dim i As Long Dim size As Long arrAlleDaten = Range("A1:C10") size = 1 For i = LBound(arrAlleDaten) To UBound(arrAlleDaten) ReDim Preserve arrAuszugDaten(size, 10) arrAuszugDaten(size) = arrAlleDaten(i) size = size + 1 Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ArrayZeileinAnderesArrayEinlesen() Dim arrAlleDaten Dim arrAuszugDaten() Dim i As Long Dim size As Long arrAlleDaten = Range("A1:C10") size = 1 ReDim Preserve arrAuszugDaten(1 To size, 1 To 10) zeile = 2 For i = 1 To UBound(arrAlleDaten, 2) arrAuszugDaten(1, i) = arrAlleDaten(zeile, i) Next i End Sub

Hallo,
du musst die zweite Dimension (Waagerecht) nutzen um dein Array in der größe anzupassen.
Für die Ausgabe wird dann das Array gedreht (Transpose) und Waagerecht wird zu senkrecht.
Bei einem sehr großen Array würde ich dies auch mit einem Code drehen,
sonst kann es vorkommen das für diese Aktion nicht genügend Speicher zu Verfügung steht.
Hier nur ein Beispiel:
Nach Möglichkeit sollte man nicht so oft Dimensionieren wie hier, macht den Code langsamer.
Wenn die benötigte Dimension bekannt ist, sollte man dies auch entsprechend nutzen!

Sub ArrayZeileinAnderesArrayEinlesen()
Dim arrAlle, arrAuszug()
Dim n&, nn&, i&
arrAlle = Tabelle1.Range("A1:C10")
For n = LBound(arrAlle) To UBound(arrAlle)
Select Case n
Case 1, 4, 6 To 7, 10
'2. Dimension Waagerecht + 1
i = i + 1
'2. Dimension anpassen (Waagerecht)
'1. Dimension bleibt immer gleich (Senkrecht)
ReDim Preserve arrAuszug(1 To UBound(arrAlle, 2), 1 To i)
For nn = LBound(arrAlle, 2) To UBound(arrAlle, 2)
arrAuszug(nn, i) = arrAlle(n, nn)
Next
End Select
Next n
If i > 0 Then
'für Ausgabe Array drehen
arrAuszug = Application.Transpose(arrAuszug)
Tabelle2.Range("A1").Resize(UBound(arrAuszug), UBound(arrAuszug, 2)) = arrAuszug
End If
End Sub

Gruß Tino

a = [A1:B123456] 'es folgen Bearbeitungen von a 'in a müssen nun 3 Zeilen bei "Zeile" 9999 eingefügt werden [A1:B123456] = a 'a hat sich mittlerweile geändert [A100002:B123459] = [A9999:B123456] 'Versatz-Einfügung a = [A1:B123459] 'mit gedachter Lücke zurück nach VBA '9999:10001 wird in VBA gelöscht und/oder überschrieben!

Diese mehrdimensionalen typischen VBA-Arrays sind dem Aufbau einer Tabelle geschuldet, Folks;
das ist aber oft, so auch bei Dimensionsänderungen, ungünstig. Verwendet man den anderen, allgemeineren Array-Typ, kann man eine 2dimensionale Matrix durch einen Vektor, dessen Elemente ebenfalls Vektoren sind ersetzen. Damit erhält man lauter 1dimensionale Vektoren, die auch alle redimmt wdn können. Außerdem lässt sich so auch eine ganze Zeile problemlos indizieren, da der StandardAufbau eines solchen Arrays ebenfalls der TabStruktur folgt → also ein senkrechter 1dimensionaler Vektor (z) mit m Elementen als Container für m 1dimensionale waagerechte Vektoren mit n Elementen (s) → VArr(m)(n_m). Eine ganze Zeile wäre dann VArr(z), ein Einzelwert VArr(z)(s). Für eine ganze Spalte müsste das Array andersherum aufgebaut wdn.
Wie man das macht, kann der VBE-Hilfe und Forumsarchiven entnommen wdn.
🙈 🙉 🙊 🐵 Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

Array Zeile in anderes Array einlesen.

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array Zeile in anderes Array einlesen.

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread