Office: Ergebnis aus 2 Arrays im Dritten zusammen fassen

Moin,

mal ne Frage an die VBA`ler *Smilie

Kann ich die Ergebnissen aus 2 Array`s in einem weiteren Array direkt zusammen führen und damit weiter arbeiten?
Im Beispiel varTmpA und varTmpA

Aktuell schreibe ich beide Ergebnisse erst in eine Tabelle und lese sie dann wieder ein.
Diesen Weg würde ich gerne "abkürzen".

Hat jemand eine Idee für mich?

Anbei mein aktueller CODE:

Code:

Vielen Dank, Gruß Dirk

:)

 

(nicht richtig gelesen)

 

Moin Marco,

Danke … huch, schon wieder gelöscht


Gruß Dirk

 

Hallo,

wenn ich das richtig verstanden habe, willst du die Inhalte von 2. Blättern in einem Array zusammen fassen?

 

Moin Klaus-Dieter,

jaein, nicht die ganzen Inhalte, nur bestimmte Spalten.

Die TB`s sind leider nicht gleich aufgebaut.
In der TB1 stehen die Daten in Spalte 1, 4 und 5
In der TB2 stehen die Daten in Spalte 1, 2 und 6

Gruß Dirk

 

Hallo,

so sollte das gehen:

Code:

 

Moin Klaus-Dieter,

vielen Dank für deine Hilfestellung.

Eventuell habe ich mich nicht richtig ausgedrückt bzw. mein Problem falsch beschrieben.

Mir geht es darum, die Ergebnisse aus varTmpA und varTmpB in eine NEUS Array zu schreiben (z.B. arrGesamt) und dann damit weiter arbeiten zu können.
Das daraus erstellte Ergebnis soll dann erst gespeichert werden.

Dein angepasster CODE schreibt die Daten ja gleich wieder in die TB und leider auch mit einer Lücke von 5 Zeilen zwischen varTmpA und varTmpB.

Gruß Dirk

 

War auf dem Sprung sonst hätte ich gern korrigiert, sy *Smilie

 

Hallo,

na das machst Du doch im Gr. schon mit Deinen vier Arrays *tongue.gif* : schaufel einfach Deine beiden Original-Arrays varA u. varB per Loop in ein neues Ausgabe-Array, die beiden Temp-Arrays können dann raus...*cool.gif*

Gruß, Muller2

 

Hallo Dirk,

du kannst in VBA nicht einfach zwei Arrays "mergen"!

Entweder du erstellst ein neues Array mit den entsprechenden Dimensionen und kopierst die Werte aus den anderen Arrays dort hinein oder du vergrößerst ein Array mit "Redim Preserve" und kopierst dann den Inhalt des anderen Arrays per Schleife in das vergrößerte Array.

Ulrich

 

Moin Muller2,
Genau da liegt ja mein Problem, "einfach" kann ich nicht *frown.gif*
Könntest du mir hier weiter helfen?

Moin Ulrich,
auch dir vielen Dank für deinen Hinweis.
Bei den beiden Varianten bin ich mit meinem Wissen am Ende, könntest du mir unter die Arme greifen?

Vielen Dank
Gruß Dirk

 

Hallo Dirk,

das ist doch Basiswissen in VBA!
Womit hast du Probleme?
Schleifen mit For-Next:
VBA in Excel/ Schleifen – Wikibooks, Sammlung freier Lehr-, Sach- und Fachbücher
oder Arrays:
excel-vba - Arrays | excel-vba Tutorial

Gruß Ulrich

 

Moin Ulrich,

mein "Basiswissen" ist wohl etwas eingestaubt.
Schleifen sollten nicht das Problem sein, wohl eher das Verständnis für Arrays.

Werde mich weiter einlesen.

Danke, Gruß Dirk

 

In xl365 ohne VBA-Umweg durch Zusammenkleben:

M8: =LET(
aa;A1:INDEX(F:F;ANZAHL2(A:A)+ZEILE(A1)-1);
bb;G4:INDEX(L:L;ANZAHL2(G:G)+ZEILE(G4)-1);INDEX(XMLFILTERN(WECHSELN("<a><b>"&
TEXTVERKETTEN(".";;WENN(ISTZAHL(SUCHEN(SPALTE(aa)-0;145));aa;""))&"."&
TEXTVERKETTEN(".";;WENN(ISTZAHL(SUCHEN(SPALTE(bb)-6;126));bb;""))
&"</b></a>";".";"</b><b>");"//b");SEQUENZ((ZEILEN(aa)+ZEILEN(bb));3)))

mit
A1:F3 (6-Spalten-Array1, mit geforderten Spalten 1, 4, 5 als Pick) und
G4:L7 (6-Spalten-Array2, mit geforderten Spalten 1, 2, 6 als Pick)

Lässt sich natürlich mit "Arr =" auch einem dynamischen VBA-Array zuweisen.

Anstelle des unsäglichen XMLFILTERN() - möglicherweise ohne VBA-Äquivalent - könnte man die Formel auch aufbrechen und mit VBA-Split fortfahren.

 

Z.B.

Code: