Array-Namen ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Function Column_to_Array(ByRef ofWorksheet As Worksheet, _ ByVal ofColumn As Long, _ ByVal Fast_ As Boolean) As Variant() Dim rng As Range Dim lROw As Long: lROw = ofWorksheet.Cells(ofWorksheet.Rows.Count, ofColumn).End(xlUp).Row Set rng = ofWorksheet.Range(ofWorksheet.Cells(1, ofColumn), ofWorksheet.Cells(lROw, _ ofColumn)) If Fast_ Then Column_to_Array = rng.Value2 Else Column_to_Array = rng.Value Set rng = Nothing End Function

Sub test1() Dim col As Collection Dim arr0, arr1, arr2, arr3 Dim i As Integer, j As Integer Set col = New Collection arr1 = Range("B2:F2").Value col.Add arr1 arr2 = Range("B3:F3").Value col.Add arr2 arr3 = Range("B4:F4").Value col.Add arr3 'alle Wwerte ausgeben For i = 1 To 3 arr0 = col(i) For j = 1 To UBound(arr0, 2) Debug.Print arr0(1, j) Next j Next i Erase arr0: Erase arr1 Erase arr2: Erase arr3 Set col = Nothing End Sub

Hallo,
der große Datensatz wird aus verschiedenen Tabellen-Blätten zusammengelesen (kommen aus unterschiedlichen Datenbanken, unterschiedlicher Teilunternehmen... --> lokale Bereichsfürsten mit IT-/Datenbanken-Eigengewächsen...)
Mein Code sieht im Moment wie folgt aus (vereinfacht und verkürzt auf 4 statt 96):

Sub splitten()
Dim i as Long
Dim j as Long
Dim Zeilen as Long
Dim Spalten as Long
Dim MatrixSektorPLZ01(1 to Zeilen, 1 to Spalten) as Variant
Dim MatrixSektorPLZ02(1 to Zeilen, 1 to Spalten) as Variant
Dim MatrixSektorPLZ03(1 to Zeilen, 1 to Spalten) as Variant
Dim MatrixSektorPLZ04(1 to Zeilen, 1 to Spalten) as Variant
Zeilen = 10000
Spalten = 11
Dim counter( 1 to 4) as long   'Zähler für Zeile Untermatrix PLZ_xy
For i = 1 to 4
Counter(i ) = 1
Next i
For i = 1 To Zeilen
If i = 1 Then						'Spaltenüberschrift übernehmen
For j = 1 to Spalten		'11 Spalten
MatrixSektorPLZ01(1, j) = MatrixDatensatz(1, j)
MatrixSektorPLZ02 (1, j) = MatrixDatensatz (1, j)
MatrixSektorPLZ03 (1, j) = MatrixDatensatz (1, j)
MatrixSektorPLZ04 (1, j) = MatrixDatensatz (1, j)
Next j
Else
Select Case MatrixDatensatz(i, 4)	'Datensatz nach Spalte 4 (PLZ-Region) aufsplitten in  _
Unterdatensätze
Case 01
For j = 1 To Spalten
MatrixSektorPLZ01(1 + counter(1), j) = MatrixDatensatz (i, j)
Next j
counter(1) = counter(1) + 1
Case 02
For j = 1 To Spalten
MatrixSektorPLZ02 (1 + counter(2), j) = MatrixDatensatz (i, j)
Next j
counter(2) = counter(2) + 1
Case 03
For j = 1 To Spalten
MatrixSektorPLZ03 (1+counter(3), j) = MatrixDatensatz (i, j)
Next j
counter(3) = counter(3) + 1
Case 04
For j = 1 To Spalten
MatrixSektorPLZ04(1 + counter(4), j) = MatrixDatensatz (i, j)
Next j
counter(4) = counter(4) + 1
End Select
End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread