Teilbereiche aus Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub test() Dim myarray(1 To 10000, 1 To 20) Dim z As Long, s As Long Dim x As Variant For z = 1 To 10000 For s = 1 To 20 myarray(z, s) = "zeile=" & z & " spalte=" & s Next s Next z x = WorksheetFunction.Index(myarray, 2) Range("A1:Z1") = x x = WorksheetFunction.Index(myarray, 0, 3) Range("A10:A100") = x End Sub

Hallo Fred,
Arrayoperationen sind unter VBA begrenzt auf das Vertauschen von Zeilen und Spalten.
Falls solche Auszüge von Arrays öffters benötigt werden, dann solltest du dir eine Function schreiben, die die Daten extrahiert.
Nachfolgend ein Beispiel. Der Auszug aus 10000 Zeilen dauert bei mir etwa 1 Sekunde.
Gruß
Franz

Sub ArrayOps()
Dim Zeile As Long, arr1, arr2, dtime As Double
'Dateneinlesen aus Tabellenblatt
dtime = Time
Application.ScreenUpdating = False
With Worksheets(2)
arr1 = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 19))
End With
'Daten aus Array extrahieren
arr2 = ExtractFromArray(arrQuelle:=arr1, arrColumns:=Array(4, 6, 9))
'Daten des 2. Arrays in Tabellenblatt schreiben
With Worksheets(2)
.Range(.Cells(1, 22), .Cells(UBound(arr2, 1), 24)).Value = arr2
End With
Application.ScreenUpdating = True
MsgBox "Dauer" & Time - dtime
End Sub
Function ExtractFromArray(arrQuelle, arrColumns) As Variant
Dim Zeile As Long, Spalte As Long, arr2()
'Ergebnis-Array dimensionieren
ReDim arr2(LBound(arrQuelle) To UBound(arrQuelle), LBound(arrColumns) To UBound(arrColumns))
'Daten in Ergebnis-Array übernehmen
For Zeile = LBound(arrQuelle) To UBound(arrQuelle)
For Spalte = LBound(arrColumns) To UBound(arrColumns)
arr2(Zeile, Spalte) = arrQuelle(Zeile, arrColumns(Spalte))
Next
Next
ExtractFromArray = arr2
End Function

HAllo
Wenn deien Arrays nur Zahlen enthlten geht was mit API.

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
    ByRef Destination As Any, _
    ByRef Source As Any, _
    ByVal Length As Long)

Ist aber auch nicht grade einfach....
Ich kann dir nur empfehlen:
setz deine 2 Schleifen auf und Schaufel um.
Das geht so schnell das du es nicht merkst.
Ich nutze Standardmäßig so etwas ähnliches:

Option Explicit

Public Sub Beispieldaten_rein()
With Sheets("Tabelle1").Range("A1:T10000")
    .FormulaLocal = "=ZEILE() & "" "" & SPALTE()"
    .Value = .Value
End With
Aufruf
End Sub

Public Sub Aufruf()
Dim arr As Variant
Dim out As Variant
arr = Sheets("Tabelle1").Range("A1:T10000")
out = extract_arr(arr, 3, 13, 1, 5, 17, 6) 'Zeilen 3 bis 13 der Spalten 1,5,17,6
'Ausgeben
Sheets("Tabelle2").Range("A1").Resize(UBound(out) - LBound(out) + 1, UBound(out, 2)) = out
End Sub

Public Function extract_arr(vntArr As Variant, _
    U As Long, _
    O As Long, _
    ParamArray I() As Variant) As Variant
'U -->die erste Zeile die übertragen werden soll
'O -->die letzte Zeile die Übertragen werden soll
'I--> die einzelnen Spalten die ins neue Array sollen
Dim L As Long
Dim S As Integer
Dim Z As Integer
Redim tmp(U To O, 1 To UBound(I) + 1)
For L = U To O
    For S = LBound(I) + 1 To UBound(I) + 1
        tmp(L, S) = vntArr(L, I(S - 1))
    Next
Next
extract_arr = tmp
End Function

ransi

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilbereiche aus Array

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread