Gruppe
Allgemein
Problem
Die Zahlen im Bereich B1:Y3 sollen jeweils 4 mal in Spalte AA geschrieben werden.
StandardModule: Modul1
Sub Aufteilen()
Dim iRow As Integer, iCol As Integer
Dim iCounter As Integer, iAct As Integer
For iRow = 1 To 3
For iCol = 2 To 25
For iAct = 1 To 4
iCounter = iCounter + 1
Cells(iCounter, 27).Value = Cells(iRow, iCol).Value
Next iAct
Next iCol
Next iRow
End Sub