title image


Smiley Re: Array direkt in Zellen einfügen??
Hallo Cleo,



das Problem beschäftigt mich auch schon seit längerer Zeit.

Es geht !!!

Jetzt habe ich unter : http://xlfaq.herber.de/texte/178502h.htm

die folgende Lösung gefunden:



Text-Index: 178502

Thema: Matrix

Betrifft: Eindimensionales Array in ein mehrdimensionales splitten

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

 Code eingefügt mit Syntaxhighlighter 1.16



siehe Zeile vor "End SUB"



Viel Erfolg




cu
FuzzyJo

(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: