plotpo
03-01-2020, 07:29 AM
Hey folks!
I can't work out how to use this 2D dynamic array. It builds exactly like it should, then only fills 5 values each and leaves the rest empty.
Maybe you guys can find the probably obvious mistake? :help
Behold my FrankenCode:
Sub Lieferschein3()
Worksheets("UBDateneingabe").Activate
Dim i As Integer, j As Integer
Dim Daten()
Dim size As Integer
size = Worksheets("UBDateneingabe").Range("A2", Worksheets("UBDateneingabe").Range("A2").End(xlDown)).Rows.Count
ReDim Daten(1 To 5, 1 To size)
For i = LBound(Daten, 1) To UBound(Daten, 1)
For j = LBound(Daten, 1) To UBound(Daten, 1)
Daten(i, j) = Cells(j + 1, i).Value
Next j
Next i
'Worksheets("Lieferschein").Range("A5:D6") = Daten
End Sub
Thanks in advance!
I can't work out how to use this 2D dynamic array. It builds exactly like it should, then only fills 5 values each and leaves the rest empty.
Maybe you guys can find the probably obvious mistake? :help
Behold my FrankenCode:
Sub Lieferschein3()
Worksheets("UBDateneingabe").Activate
Dim i As Integer, j As Integer
Dim Daten()
Dim size As Integer
size = Worksheets("UBDateneingabe").Range("A2", Worksheets("UBDateneingabe").Range("A2").End(xlDown)).Rows.Count
ReDim Daten(1 To 5, 1 To size)
For i = LBound(Daten, 1) To UBound(Daten, 1)
For j = LBound(Daten, 1) To UBound(Daten, 1)
Daten(i, j) = Cells(j + 1, i).Value
Next j
Next i
'Worksheets("Lieferschein").Range("A5:D6") = Daten
End Sub
Thanks in advance!