Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array häppchenweise?

Array häppchenweise?
01.01.2005 19:24:09
NE
Hallo zusammen,
ich hätte da gerne auch mal noch ein Problem ;-)
Kann man ein mehrdimensionales Array 'paketweise' an ein anderes übergeben?
Also nicht in Schleifen, sondern jeweils immer, ich sag mal 'strangweise?
Mal hier am Beispiel, eins() soll alle A's enthalten, zwei() alle B's und drei() alle C's ...,
possible?

Sub x()
Dim arr(1 To 3, 1 To 10)
Dim a, b, eins(9), zwei(9), drei(9)
'array füllen
For a = 1 To 3
For b = 1 To 10
arr(a, b) = Chr(64 + a)
Next
Next
'also alle 10 Elemente jeweils auf einen Hieb rüberrubeln ...
'funzt so natürlich nicht
'eins=arr(1)
'zwei=arr(2)
'drei = arr(3)
End Sub

Gruss Nancy

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array häppchenweise?
Klaus
Hallo Nancy,
die Richtung war schon richtig.
Beim der Variablen eins, zwei und drei keine Argumente angeben.
Dafür aber weiter unten bei der arr()-Variablen.

Sub x()
Dim arr(1 To 3, 1 To 10)
Dim a, b, eins, zwei, drei
'array füllen
For a = 1 To 3
For b = 1 To 10
arr(a, b) = Chr(64 + a)
Next
Next
'alle 10 Elemente jeweils auf einen Hieb rüberrubeln ...
'so funzt es
eins = arr(1, 10)
zwei = arr(2, 10)
drei = arr(3, 10)
'zum Testen im Tabellenblatt anzeigen
Range("a1:a10") = eins
Range("b1:b10") = zwei
Range("c1:c10") = drei
End Sub

Gruß Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige