wie kann ich ein 2 dimensionales Array (ca. 500 Zeilen, 6 Spalten) ganz schnell, so "auf einen Schlag" in ein Sheet einlesen?
Wer kann mir helfen?
Liebe Grüße
Petra
Sub Test()
Dim arr() As Variant
Dim anzahl As Long
Dim i As Long, L As Long, x As Long
anzahl = Cells(Cells.Rows.Count, 1).End(xlUp).Row - 5
ReDim arr(anzahl, 6)
i = 0
For i = 1 To anzahl
arr(i, 1) = Cells(i + 5, 2)
arr(i, 2) = Cells(i + 5, 3)
arr(i, 3) = Cells(i + 5, 4)
arr(i, 4) = Cells(i + 5, 5)
arr(i, 5) = Cells(i + 5, 6)
arr(i, 6) = Cells(i + 5, 7)
Next
Sheets("Test").Cells(1, 1) = arr(605, 2)
' Sheets("Test").Range(Cells(1, 1), Cells(UBound(arr, 1), UBound(arr, 6))) = arr
' Sheets("Test").Range(Cells(1, 1), Cells(605, 6)) = arr
End Sub
ein Wert zuordnen ist OK, das ganze Array klappt nicht
kann mir trotzdem noch jemand den entscheidenden Tipp geben?
liebe Grüße Petra
Sub Test()
Dim arr
arr = Range("B1", Cells(Rows.Count, 1).End(xlUp).Offset(0, 6))
Sheets("Test").Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub
Gruß Tino
Sub Test()
Dim arr() As Variant
Dim anzahl As Long
Dim i As Long, L As Long, x As Long
anzahl = Cells(Cells.Rows.Count, 1).End(xlUp).Row - 5
ReDim arr(anzahl, 6)
i = 0
For i = 1 To anzahl
arr(i, 1) = Cells(i + 5, 2)
arr(i, 2) = Cells(i + 5, 3)
arr(i, 3) = Cells(i + 5, 4)
arr(i, 4) = Cells(i + 5, 5)
arr(i, 5) = Cells(i + 5, 6)
arr(i, 6) = Cells(i + 5, 7)
Next
Sheets("Test").Cells(1, 1) = arr(605, 2)
Sheets("Test").Range(Cells(1, 1), Cells(UBound(arr, 1) + 1, UBound(arr, 2) + 1)) = _
WorksheetFunction.Transpose(arr)
' Sheets("Test").Range(Cells(1, 1), Cells(605, 6)) = arr
End Sub