Gruppe
Matrix
Problem
Ein eindimensionales Array soll mit den Zahlen von 1 bis 100 gefüllt und dann in ein mehrdimensionales aufgeteilt werden.
StandardModule: Modul1
Sub SplitArray()
Dim arrBasis(1 To 100) As Integer
Dim arrSplit(1 To 25, 1 To 4) As Integer
Dim iCounter As Integer, iAct As Integer
For iCounter = 1 To 100
arrBasis(iCounter) = iCounter
Next iCounter
For iCounter = 1 To 25
For iAct = 1 To 4
arrSplit(iCounter, iAct) = arrBasis(iCounter * 4 - (4 - iAct))
Next iAct
Next iCounter
Range("A1:D25").Value = arrSplit
End Sub