Office: Array Füllen und Schreiben

Hallo Gemeinde,

ich hab da ein kleines Problem, bei dem mir grad der Ansatz fehlt.

Sicherlich weiss jemand von Euch da rat.

Mit folgender Function fülle ich mir ein Array

Code:

Das füllen klappt auch noch,

aber in dem Moment, wo ich die Werte Eintragen will schreibt er mir nur
leere Zellen.
Ich denke das Problem liegt in der Art und Weise wie ich das Array fülle
(im Lokalfenster zeigt er)

Zarr(1 to 12)
ZArr(1) = Variant/Variant (1 to 113, 1 to 1)

Ich denke das er mir die Werte aus der 2. Dimension (1 to 113) reinschreibt,
die Werte aber in der 3. Dimension sind (1 to 1)
Oder?

Womöglich kann mir da jemand helfen ..

Beste Grüße
Und vielen Dank

Jack

:)

 

Hallo Jack,

wenn du ein zweidimensionales Array deklarierst, musst du es auch zweidimensional füllen.

 

Hallo Jack,

Array ZArr muss 2-dimensional sein, also
Code:

Gruß
Aloys

 

Hallo Klaus Dieter,

Danke für deinen Beitrag.

Ich dachte das mach ich auch.
1. Dimension sind die Spalten (1-12)
2. Dimension sind die entsprechenden Zeilenwerte (hier 1-113)

Woher er die 3. Dimension nimmt.... keine Ahnung ¯_(ツ)_/¯

Wie mach ich es denn richtiger?

Grüße
Jack

 

Hallo Jack,

am einfachsten wäre es so: ZArr = .Range("A1:I12").Value

 

Hallo Klaus Dieter,

Ja das wäre am einfachsten.. so fülle ich "davor" den Wertebereich (an der Stelle werden die Daten aus verschiedenen Quellen geholt)

Nun bin ich allerdings an dem Punkt, das die Spalten Umsortiert werden müssen.
Ich hab mich für die Variante des Spaltenweisen einlesen entschieden, da ich für das Umsortieren im Array keine Idee hatte wie ich das umsetze.

Daher scheidet dein Vorschlag aus, weil ich das Array nicht sortiert bekomm.


Grüße


Hallo Aloys,

Dank auch dir.
Das mit der 3. Dimension hab ich mir schon fast gedacht. Ich versteh nur nich wo er die sich her nimmt.. ?

Grüße

 

Hallo Jack,

dann lade doch bitte mal eine Datei hoch, in der die Ausgangslage und das gewünschte Ziel zu erkennen ist. Deinem Quelltext entnehme ich, dass es auch vorkommt, dass gleiche Spalten zwei Mal eingelesen werden sollen.

 

Hallo Klaus Dieter,

Das ist eigentlich recht einfach.
Ich will einfach komplett Spalten Umsortieren nix großes.
Die Daten sind auch vollkommen heterogen.

Anbei die Mappe in Tab 1 die Quelle und in Tab 2 das Ziel

(nur das halt bei mir das original Überschrieben wird)

DAs mit dem einlesen der gleichen Spalten ist im Prinzip nur der Tatsache geschuldet, das der Code noch nicht fertig ist.
doppeltes Einlesen ist in der Zielform nicht angepeilt. =)

Beste Grüße
und vielen Dank

 

Hallo Jack,

versuche es mal damit:

Code:

 

Moin Jack,

anbei eine Möglichkeit zur Umsetzung. Ich habe den Code jetzt für das Blatt "Ziel" geschrieben, damit beim Testen die Basisdaten erhalten bleiben.

Code:

LG Petra

 

Hallo zusammen,

ohne zu testen gehe ich davon aus, dass Petras Code seinen Dienst tut, hätte nur einen Tipp zur Verschlankung:

aus:
Code:

...wird:
Code:

Grüße
EarlFred

 

Moin Moin,

Danke für eure Vorschläge.

Ich werde sie gleich probieren.
Indes hab ich auch einen gebastelt.
Nicht schön, aber er Funktioniert
Ihr macht es ja über ein verändertes einlesen (Zelle für Zelle).

Ich hatte mal gedacht das sequentielles Arbeiten in der Mappe immer langsamer ist. Daher hab ich in meiner Idee sequentiell im Array gearbeitet.


Code:

Grüße und Besten Dank

Add: #
ich hab indes gelesen das dass einlesen eines Range in ein Array IMMER ein 2 dimensionales Array erzeugt... (das ist in dem Fall auch [meine] Fehlerquelle gewesen)
Was ich nicht herausgefunden habe, ist ob man das unterminieren kann..

 

Hallo,

einen ähnlich schlanken Vorschlag hatte ich ja auch schon gemacht.

 

\@Jack

Du kannst es Transponieren:
Code:

Wobei die mitgebrachte Transponierung langsamer ist als eine selbstgeschriebene Routine zum "Umschaufeln" in ein neues Datenfeld - fällt hier bei den wenigen Daten aber vermutlich nicht ins Gewicht.

Das ist so. Insbesondere, wenn man die Daten für andere Zwecke schon in einem Datenfeld vorliegen hat.
Bei der kleinen Handvoll Daten brauchst Du aber schon einen sehr nervösen Finger an der Stoppuhr, um eine Differenz zu messen... (was aber am prinzipiell zu bevorzugenden Vorgehen nichts ändert: Daten immer "in einem Rutsch" einlesen und zu schreiben).

Grüße
EarlFred

 

\@Klaus-Dieter,

Du hast recht - ich wollte Deinen Vorschlag nicht ignorieren. Aber um nicht alles geschriebene nochmals durchzugehen, habe ich von unten angefangen zu lesen, da bin ich garnicht erst zu Deinem Beitrag vorgedrungen. *wink.gif*

Deine Lösung mit separaten Array ist prima und bedurfte keiner Verbesserung.

Grüße
EarlFred