Office: Variant-Array auslesen // Array in Zellen einfügen

Hallo zusammen,

per Variant hab ich eine Range eingelesen und möchte diesen nun Ausgaben, bekomme bei der aktuelle Variante allerdings einen Laufzeitfehler(9) wenn ich meinen aktuellen Code verwende:

Das Array wird korrekt befüllt - nur die Ausgabe klappt so gar nicht.
Weiß jemand Rat? Habe das Gefühl ich stehe mächtig auf der Leitung *eek.gif* .

Code:

:)

 

Hallo,

arbeitest Du mit Option Explicit?
Ein Array, das auf diese Art und Weise erstellt wird, hat immer 2 Dimensionen, jeweils beginnend beim Index 1.

Code:

Man schaltet Application.DisplayAlerts !NIEMALS! ohne konkreten Grund aus - schon überhaupt garnicht pauschal zu Beginn eines Codes!

Grüße
EarlFred

 

Besten Dank erstmal!

Das sollte in der Tat eine Null sein, ist meiner eigentlichen Java-Arbeit wohl geschuldet.

Application.DisplayAlerts ist aus, da verschiedene Dateien geöffnet und geschlossen werden sollen, ohne dass der Nutzer dies bestätigen muss.

Dein Code funktioniert jetzt wunderbar, vielen Dank!

Eine Frage hätte ich noch: Wie schreibe ich dieses Array jetzt in eine Zelle um?

 

Hallo,

Du meinst die Abfrage, ob Änderungen gespeichert werden sollen? Dafür ist DisplayAlerts ungeeignet, ich bleibe bei meiner Auffassung. Gib dem Code vor, dass er Änderungen nicht speichern soll:
Code:

Verstehe ich nicht. Willst Du das komplette Array in eine Zelle eintragen?

Grüße
EarlFred

 

Nochmal Danke für deine Hilfe!
Es soll standardmäßig gespeichert werden. Ich nehme mal an
SaveChanges:=True tut es dann für mich *Smilie.

Das Array soll in gleich viele Zeilen wie es Elemente hat.

VG

 

Hallo,

das denke ich auch *wink.gif*

Code:

Grüße
EarlFred

 

Hallo,

warum soll die Datei gespeichert werden?

Es wird nur lesend drauf zugegriffen.

Also sollte sie auch nur-lesend geöffnet und ohne zu Speichern
wieder geschlossen werden.

Und generell speichern, kann fatal sein!

Eine Array-Variable kann in deinem Fall gespart werden.

Code:

 

Stimmt, eigentlich müsste ich die Dokumente nicht speichern.

Ein Array brauch ich dennoch, denn meine Anforderungen sind etwas weitergreifend als die Frage hier.

Ich muss jeweils zwei Dokumente zusammen mit deren Spalten und Zeilenbezeichnung einlesen. Allerdings kann es sein, dass bei den Spalten die Bezeichnungen vom einen zum anderen abweichen. Also muss ich die beiden Spalten in zwei Arrays einlesen, miteinander vergleichen und bei Abweichungen eine Leerspalte (bzw. den Wert "") in dem Arrayeinfügen, welches weniger Einträge besitzt.
Damit so die sich gleichenden Spaltenbezeichnungen übereinander gemapped werden.

Nachdem ich also die beiden Arrays entsprechend angepasst habe, muss ich sie nun in ein weiteres Tabellenblatt einfügen - wofür ich gern eine mein stets eindimensionales Array in eine Spalte bzw. Zeille immer ausgehend von 'A1' einfügen würde.

Meine Ausgabe klappt jetzt mit diesem, zusammengefassten Code-Schnipsel:

Code:

Edit:
Nochmal Danke für die Geduld und euren Altruismus.
Eine Frage hätte ich ergänzend zu meiner Thematik noch.

Wenn ich das Arrays aus dem externen Sheet einlese: Wie kann ich erkennen, wann eine Zelle keinen Inhalt mehr enthält?

Kurzes Beispiel:
Code:

 

Hallo,

lad die 2 Quell-Dateien verfremdet hoch.

 

Es gibt zwei Quelldateien, Datei 1 und Datei2.
Datei 2 enthält eine Extraspalte die es in Datei 1 nicht gibt.

Im Dokument Vergleich sollen nun beide ersteinmal in die Reiter kopiert werden, wichtig ist aber, dass beide in diesem Fall gleiche Zeilen und Spaltenanzahl und Bezeichnungen besitzen (siehe Beispiel).

Wenn eine Spalte wie 'Extraspalte' in einem der Dokumente nicht vorkommt, wird in jeweils anderen diese Spalte eingefügt und mit leeren Werten befüllt.


Im Sheet Vergleich im Dokument Vergleich wird dann anschließend verglichen, ob sich Werte zwischen Datei1 und Datei2 bei gleicher Schnittmenge geändert haben.

 

Hallo,

ich denke das geht in die Richtung...

Code:

 

Herzlichen Dank! Das geht definitv in die richtige Richtung. *Smilie

Allerdings soll die Zielstruktur ein wenig anders sein.
Es gibt ein Tool (dort drückt man quasi auf den Button).
Dieses Tool soll dann eine Arbeitsmappe erzeugen welche die Dokumente Datei1 in Tabelle1, Datei2 in Tabelle2 und den Abgleich wie du ihn programmiert hast in Tabelle3 besitzt.

Im Reiter Abgleich wird dann mittels einer Formel überprüft, ob Die Zelle A2 von Datei1 mit der Zelle A2 von Datei2 übereinstimmt.

Etwa so:
=WENN(IDENTISCH('Tabelle1'!A2;'Tabelle2'!A2);1;"alt: "&'Tabelle1'!A2& ZEICHEN(10) & ZEICHEN(10) &"neu: " &'Tabelle2'!A2)

Ich brauch also nur eine Anwendung die mir die Spaltenbezeichnungen einliest und miteinander matched, so dass die Inhalte einer Spalte auch mit den einer anderen verglichen werden, wenn deren Spaltenbezeichnung identisch ist.

Anbei dazu mal ein Beispiel, wie aktuell so ein Abgleich aussieht.

P.S.: Sollte es dir zu viel sein, das jetzt in Code umzusetzen (und das kann ich absolut verstehen) - könntest du mir zumind. stichpunktartig deinen Lösungsansatz darlegen?

 

Super...das war jetzt für die Tonne!

Ich dachte du hast ein Kreuztabelle mit Zeilen- UND Spaltenüberschriften!

Sind die Zeilen in beiden Dateien immer gleich angeordnet? Das kann ich mir nicht vorstellen. Du benötigst eine ID-Spalte anhand derer die Zeilen genau identifiziert werden.

 

Hi, sorry das tut mir echt leid - ich hab die aktuelle Tabelle auch gerade eben erst bekommen und hatte davor nur "Erzählungen" wie das ganze auszusehen hat. Vorher bin ich auch davon ausgegangen, dass es eine ID-Spalte gibt. *frown.gif*

Die Anzahl an Zeilen ist nach meiner neuen Erkenntnis also immer gleich, dies liegt daran, dass es sich hier um Abzüge aus einer DB handelt, wobei die Zeilen fortlaufend historische Einträge besitzen. Da der 'historische' Stand vor und nach Abzug aber gleich ist, ist auch die Anzahl an Zeilen gleich.

Entschuldigung nochmal für das Missverständnis.