Gruppe
Funktion
Problem
Dem Datum in Zelle A2 soll die Anzahl der Jahre aus Zelle B2 zugefügt 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