Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eindimensionales Array in ein mehrdimensionales splitten

Gruppe

Vba

Problem

Ein eindimensionales Array soll mit den Zahlen von 1 bis 100 gefüllt und dann in ein mehrdimensionales aufgeteilt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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

    

Beiträge aus dem Excel-Forum zu den Themen Matrix und Vba