Office: Ergebnis aus 2 Arrays im Dritten zusammen fassen

Moin Harry,

vielen Dank.
Dein CODE ist um einiges schlanker als meiner, schreibt aber auch "nur" das Ergebnis in die Tabelle.

Ich bekomme es einfach nicht hin, mit dem Ergebnis weiter zu arbeiten, ohne es zwischen zu speichern.

Hast du eventuell noch eine weitere Idee für mich?

@lupo1
Ich habe leider kein Office365, aber Danke für deine Zeit

Danke, Gruß Dirk

 

Du meinst sowas?

Code:

 

Meine Lösung kann ohne ein Schreiben in Zellen mit Trotzdem-Tabellenfunktionen sortiert, gefiltert und vereindeutlicht werden - und dann direkt ins VBA-Zielarray geschrieben werden.

Aber auf mich hört ja keiner.

 

Hallo lupo1,

natürlich,

 

Für ein Array-Kleben schafft man es sich halt an. *wink.gif* Sonst ist es ein gar armes Array-Leben.

 

Moin Harry,

Deine Ergänzung
Code:

könnte genau meine Lösung werden.

Für heute muss ich aber leider erstmal passen.
Werde mich morgen weiter damit befassen und berichten

@lupo1

Würde ich so nicht sagen *wink.gif*

Vielen Dank für eure Geduld und Hilfestellung *Smilie

Gruß Dirk

 

hallo Mücke,

Code:

Teste und berichte.

LGB

 

Moin Zusammen *Smilie

Habe versucht alle Varianten zu testen und auf die Original-Datei anzuwenden.

@
Harry
Dein CODE funktioniert in einer "kleinen" Umgebung sehr gut.
In der Original-Datei mit mehr als 50.000 Zeilen zwingt der CODE Excel in die Knie und stürzt ab.

@Barbara

Der ist gut *biggrin.gif*

Deine Variante funktioniert in der Original-Datei wunderbar, vielen Dank dafür.

Nur für mich zum Verständnis

Die Spaltenausgabe (arrGesamt) ist durch die Anzahl der Spalten der varA definiert, hier also 7.
Im Ergebnis bräuchte ich aber noch weitere Spalten, in Summe 11.
Kann man arrGesamt auch auf 11 Spalten dimensionieren?

Vielen Dank
Gruß Dirk

 

Hallo Dirk,

Sicherlich wird man das machen können. Warum machst du es nicht einfach?

Ulrich

 

Moin Ulrich,

Einfach … sehr gerne … aber was verstehst du unter einfach?

Gruß Dirk

 

Hallo Dirk,

es ist einfach, kurz in der Hilfe nachzulesen, wie die ReDim Anweisung aufgebaut ist und wie die Dimensionierungen eines Arrays angegeben werden.

Alleine dadurch, daß du die Änderungen vornimmst, kann nichts passieren, aber man muß es halt machen und sich trauen.

Wenn du eine Office Version hast, wo die F1 Taste nicht funktionieren sollte, gibt es diese Webseite:
https://docs.microsoft.com/de-de/off.../api/overview/

Ulrich

 

Application.index ist relativ langsam.


So geht's besser.
Code:

 

Dazu fällt mir nichts (neues) Sinnvolles ein, dafür sind Arrays nicht gemacht.

Woran ich aber einen Gedanken "verschwenden" würde: Was machst Du eigentlich?
Daten aus zwei Tabellen irgendwie verarbeiten und dann irgendwie weiterverarbeiten? Ein Array kann ja nie ein Endziel sein. Wenn die mappe / der Rechner geschlossen werden oder auch schon der Strom mal ruckelt, ist alles vorbei.
Mit einem ganz anderen Verarbeitungs-Ablaufplan (Power Query, weitere?) könnte sich Frage an sich erledigen und man an sich besser gestellt sein.
Ist das Ziel das Ziel, oder ist der Weg das Ziel?

 

"Nichts Sinnvolles ..."

Nehmen wir z.B. 2 gleiche Adresslisten, die ab einem Zeitpunkt getrennt und dann separat aktualisiert wurden.

Die könnte man in eine mischen, sortieren und dann Duplikate löschen. Dann blieben die Unterschiede durch annähernde Doppler erhalten.

Oder: Jeder Mitarbeiter bekommt für seinen Bezirk seine Daten separat. Sie werden durch ihn upgedatet. Zuhause wird wieder zusammengeschoben für übergreifende Betrachtungen.

 

hallo Mücke,

mir ist da ein kleiner Fehler in meinem Makro aufgefallen.

arrGesamt soll 3 Spalten haben. Das ergibt sich aus den folgenden Kopieraktivitäten. Für die müssen mindestens 3 Spalten bereitgestellt werden.

Daher eine Zeile korrigieren:
ReDim arrGesamt(1 To UBound(varA, 1) + UBound(varB, 1), 1 To 3)

Kannst auch mehr Spalten nehmen. Die werden aber vom Makro nicht befüllt.

HS, Du schreibst: "Application.index ist relativ langsam. So geht's besser." Wie meinst Du das? Denn dann folgt ein Code mit "Application.index".

LGB