Office: Array Inhalt in andere Tabelle schreiben

Hallo Zusammen

Folgender Code funktioniert. Nur leider kann ich den Array Inhalt nicht in die Zieltabelle Daten_Show schreiben. Er wird in die Quelltabelle DAS4 geschrieben.

Code:

Habe schon

Code:

versucht.

erhalte dann Laufzeitfehler 1004
Anwendungs-oder objektdefinierter Fehler

Was muss ich an der roten Zeile verändern, damit das Resultat in die Zieltabelle geschrieben wird?

:)

 

Hallo Engeli,

auf den ersten Blick würde ich sagen das es so nicht geht.

eine Beispiel Datei hättest Du mit hoch laden können

hier mal drei Links

für ein Normales Array
http://support.microsoft.com/kb/213798/de

für ein Dynamisches Array
http://findsarfaraz.blogspot.de/2009...-range-to.html
http://support.microsoft.com/kb/843145/de

für ein Dynamisches Array mit Beispiel
http://www.ms-office-forum.net/forum...d.php?t=290266

« Gruß Peter9 »

 

Hallo Peter9

Danke für die Links. Habe schon diverse Code angeschaut. Habe mir diesen ausgesucht, weil er eigentlich 100% meiner Aufgabenstellung enspricht.
Nur das schreiben in die Tabelle Daten_Show funktioniert nicht.
Die Zeile schreibt in die Quelltabelle DAS4.
Ich denke aber das es klappen müsste. Das ansprechen (Syntax) der Tabelle ist das Problem.
Anhängen kein Problem.

 

Hallo Markus,

JEDER Bezug muss vollständig angegeben werden; die fehlenden Angaben eines unvollständigen Bezugs werden immer durch das gerade aktive ergänzt. In Deiner Anweisung beziehst Du Dich also einmal auf das Blatt "Daten_Show" und einmal auf das aktive, welches ein anderes ist.
"Bilde den Bereich aus Blatt1.Range("A1") und Blatt2.Range("C4")" funktioniert nicht im "normalen" Excel und also auch nicht per VBA.

Grüße
EarlFred

 

Hallo Guten Morgen

So spät oder früh noch unterwegs.
Danke für Deine Erklärung. Das ist mir schon klar, das ich nicht die Tabelle Daten_Show "anspreche", deshalb klappte es ja nicht.
Ich dachte halt, das das anpassen der letzten Zeile keine grosse Sache sei.

Code:

Habe ja auch eine Lösung mit Makrorekorder.
Weiss nur noch nicht, wie ich die Spaltenbreite Formatierung übergebe.
Dachte mit Array würde es einfacher. Wohl weit gefehlt.

 

Hallo Markus,

mal mit Farben:
Sheets("Daten_Show").Range("A1", Cells(UBound(vArre)...
Der Rote Bereich bezieht sich auf "Daten_Show", der blaue auf das aktive Blatt. Vor "Cells" gehört also ebenfalls der Blattbezug - freilich auch innerhalb eines With-Blocks schreibbar - andernfalls passiert das, was vor beschrieben.

Grüße
EarlFred

 

Hallo EarlFred

Danke für Deine Geduld. jetzt hat es Klick gemacht.
Wie würdest Du die Spaltenbreite übergeben?
Wärend dem schreiben in Tabelle. Spalte für Spalte, oder zuerst schreiben und dann von A1 - ....1 ?

 

Hallo Markus,

welchen Unterschied hast Du im Vergleich der Methoden festgestellt?

Grüße
EarlFred

 

Hallo

Mit meinen beschränkten Excel Kenntnissen, denke wohl das es einfacher ist nach dem kopieren der Daten in die Tabelle, die Formatierungen vorzunehmen.
Deshalb Frage ich ja nach.
Damit ich es nicht zu kompliziert angehe. Das ist oftmals mein Problem.