Office: Mehrdimensionales Array einfach füllen

Hi

Ich möchte an eine Funktion ein mehrdimensionales Array übergeben. Und dies soll anwenderfreundlich sein *Smilie

So funktioniert das Ganze schon:
Code:

Nun wie kann ich das kurz schreiben? Habe schon alles abgesucht aber werde nicht fündig...gibt es nichts wie

aSourceColumns = array((1,2,4,1),(5,9,4,0))
?

Weil das funktioniert auch nicht...

Viele Grüsse und Danke schonmal
Michael

:)

 

Hallo Michael,

Deine Anwender sollen ein mehrdim. Array füllen? Lass sie die Werte in ein Blatt schreiben, wenn es zweidim. ist und greif die Daten dort ab.

Deinen Codeversuch interpretiere ich so:
Code:

Je nachdem, was denn nun genau passieren soll, kannst Du ggf. auf das (doppelte) Transponieren verzichten.

Grüße
EarlFred

 

Vielen Dank erstmals. Aber kann man nicht im Code direkt ein Array füllen?

Also für eindimensionale geht das ja auch oder?

Ja also mit Anwender meine ich quasi Leute die meine Funktion in VBA verwenden. Dazu gibt es dann ein Modul wo für ganz viele Sheets diese Funktion ausgeführt werden soll und deshalb soll das füllen der Arrays so kurz und übersichtlich wie möglich machbar sein. *Smilie

 

Hallo Michael,

steht doch in meiner Antwort - oder was denkst Du, tut die Codezeile?

Wenn Du etwas anderes meinst: Beschreib es doch einfach so, dass man es auch versteht und zielgerichtet helfen kann. Ich helfe gerne, aber Ratespielchen sind nicht mein Ding.

Grüße
EarlFred

 

Hi Michael,

meinst du das so:

Code:

 

Da fallen mir erst einmal nur Fragen ein:

a) Wieviele der 60 möglichen Dimensionen werden in Anspruch genommen?

b) Ist Füllen beliebig, oder soll da etwas Bestimmtes ins Array?

Ohne eingrenzende Definition ist alles für möglich zu halten.

 

Sorry, dass ich etwas unklar war. Also so vom Aussehen kommt das von Beverly und Earlfred dem am nächsten, was ich suche.

Also Dimensionen soll das Array zwei haben. Und es sollen nur Zahlen ins Array.

Der Funktionsheader sieht so aus:
Code:

Wenn ich das mit folgender Prozedur aufrufe klappt das 1a:
Code:

Aber die Definition ist mir zu umständlich, da ich diesen MergeData Aufruf pro Excelfile etwa 5-10 mal machen muss und dann gibt es davon noch 5 weitere Excel Files, also total 25 Aufrufe.

Ganz elegant hätte ich mir das so ähnlich wie von Beverly und auch earlfred gezeigt vorgestellt:

Code:

Da kommt aber die Fehlermeldung "Unverträglicher Typ". Das liegt ja wohl daran, dass Array() einen Variant Typ zurückliefert. Wenn ich aber den Funktionsheader auf Variant ändere, geht es immer noch nicht:

Code:

Hier kommt wieder die Fehlermeldung Unverträglicher Datentyp. Auch wenn ich das 2-dimensionale Array nicht direkt in den Funktionsaufruf lege sondern in eine Array Variable auslagere, klappt es mit demselben Fehler nicht.
Was mache ich falsch? Denn an sich wäre mir dieses Füllen mit Array(Array()) praktikabel genug...

 

Code:

Ein einfaches Variant schluckt alles, auch ein beliebig zusammengestelltes Array. Du musst dann nur in der internen Verarbeitung überprüfen, was Dir übergeben wird, oder aber Du verlässt Dich auf eine übergebene Struktur, weil Du in einer eigenen Prozedur das Array in definierter Struktur erzeugen lässt.

 

Hallo Michael,

DENN:
Code:

ist ein anderes Array als das, was bei Deinem Code entsteht (existiert)! Schau Dir die Struktur genau an - der Code muss darauf reagieren (oder Du verwendest, wie in meinem Beispiel, eine doppelte Transponierung - dann sehen "Dein" und "mein" Array gleich aus).
Code:

Die Funktion Array liefert zudem ein Nullbasiertes Datenfeld (wie übrigens auch das von Dir verwendete Dim aintSource(2, 4) As Integer, solange Du nicht Option Base veränderst).

Nochmals der Hinweis:

Aus Gründen der Nachvollziehbarkeit, der Übersichtlichkeit, der Archivierung und erneuten Verwendung zu einem späteren Zeitpunkt könnte das sinnvoll sein.

Grüße
EarlFred

 

Hallo ihr beide

Also das verstehe ich jetzt nicht ganz. Bzw. verstehe ich, dass Variant alles schluckt. Aber in dem Beispiel von mir habe ich mich ja extra darauf geachtet, dass die Arrays "zusammenpassen". Die Funktion erwartet ein Variant Array und ich liefere eins. Oder muss ich im Funktionskopf auch angeben, dass da ein mehrdimensionales kommt?! Denn der Compiler bricht ja gleich ab, also stimmt was in meiner Definition wohl nicht.

Die Überprüfung in der internen Verarbeitung muss ich doch dafür machen, dass die Funktion allenfalls erkennt falls irgendein Humbug übergeben wird und das Programm nicht abstürzt oder? Dennoch müsste es doch in meinem Beispiel funktionieren?

 

Die zweite Frage ist noch nicht beantwortet:

Woher resultieren diese imaginären Zahlenfolgen?

 

Hallo Michael,

wie immer gehört zu einer Variable auch eine Definitionszeile.
Ich bekomme so keinen Fehler, denn VBA weiß, was es erwartet:
Code:

Bei Dir ist es nicht klar, was übergeben wird (so schlau ist der Compiler nicht und so "variant" ist selbt Variant nicht) - also darf kein Datenfeld (Klammerung) vorgegeben sein.

Grüße
EarlFred

 

Ganz vergessen, das noch zu erklären. Also generell fügt das Programm zwei Datensätze zusammen mit Aktienrenditen.

Im Destinationsheet gibts eine Datums- und eine Returnspalte.
Im Sourcesheet gibts verschiedene Datenquellen, jeweils mit einer Datums- und Returnspalte.

In dem Array werden die Datenquellen im Sourcesheet definiert.

Wert 1 ist die Spalte mit den Datumswerten
Wert 2 ist die Spalte mit den Returnwerten der Aktien
Wert 3 ist die erste Zeile, welche Daten enthält
Wert 4 gibt mit 1 oder 0 an ob die Werte bereits in % sind oder noch umgerechnet werden müssen.
Also 1,2,4,0 heisst Spalte 1, 2 und Zeile 4 und die Werte sind bereits in %.

 

Ja stimmt, wenn ichs nicht direkt in den Funktionsaufruf packe sondern auslagere, krieg ichs jetzt irgendwie doch hin. Dann geht der direkte Weg wohl leider effektiv nicht..

Vielen Dank erstmal *Smilie

 

Hallo Michael,

????? Eberhards Variante "geht" doch sehrwohl...

Grüße
EarlFred