Office: Range Array von einem Workbook in ein anderes kopieren

Hallo Experten!

Ich hoffe ihr könnt mir (wenig erfahren mit VBA) weiterhelfen.

Bitte beachten, ich arbeite mit einem Mac, also werden nicht alle Befehle unterstützt. Vor allem Workbook.Open

Ich möchte täglich Daten von einem Workbook in ein anderes Kopieren. Es gibt aber einen Bereich, in dem die Werte nicht statisch sind, das heißt, es kann sich um 3 Zeilen handeln, oder 10 oder 7, jeden Tag anders.

In der Quelldatei fängt dieser Bereich in Range("B10:H10") an. Die letzte Zeile fängt in Zelle B? mit "Gesamt:" an.

ich kann mit folgendem Code das auch schaffen:

Dim i As Integer
Dim x As Integer
Dim lieferant As String
Dim ScrRange As Range

Windows("Lieferungen.xls").Activate

i = 10
x = 0

Do Until lieferant = "Gesamt:"

Windows("Lieferungen.xls").Activate

lieferant = Cells(i, 2).Value
Set ScrRange = Range(Cells(i, 2), Cells(i, 7))

Windows("Reports.xlsm").Activate

ScrRange.Copy Destination:=Range(Cells(i + 13, 2), Cells(i + 13, 7))
i = i + 1
x = x + 1 '(Ich habe x, um die Gesamtzahl der Zeilen zu ermitteln.)

Loop

Wie gesagt, es funktioniert, ist aber sehr unschön, also wollte ich die Gelegenheit nutzen, endlich mal Arrays zu lernen um das Ganze hübscher zu gestalten. Aber seit nun mehr als fünf Stunden hilft mir Google nicht weiter.

Hier ist so meine Idee:

Dim i As Integer
Dim j As Integer
Dim x As Integer

Windows("Lieferungen.xls").Activate

i = 10
x = 0
j = 0

Do Until lieferant = "Gesamt:"
liefernat = Cells(i, 2).Value
i = i + 1
x = x + 1
Loop

(Jetzt weiß ich wie viele Zeilen ich kopieren muss)

Dim ArrRange() As Range

(Diese For... Next sollen die Variablen ArrRange(0), ArrRange(1), ArrRange(2) usw. mit Werte befüllen.
For j = 0 To x - 1
ArrRange(j) = Range(Cells(10 + j, 2), Cells(10 + j, 7))
Next j

Windows("Reports.xlsm").Activate

(Diese nächste Schleife soll die Variablen ArrRange(0), ArrRange(1), ArrRange(2) usw. in einen Range kopieren.)

For j = 0 To x - 1
ArrRange(j).Copy Destination:=Range(Cells(j + 24, 2), Cells(j + 24, 7))
Next j

Ich bekomme aber eine Vielzahl von Fehlermeldungen, z.B. Konstate benötigt, außerhalb des definierten Bereichs, usw.

Ich hoffe einer von euch hat eine simple und für mich verständliche Lösung.

Vielen Dank!!!

:)

 

Hallo,

ich habe mal ein paar Zeilen geschrieben, wie ich es vermutlich lösen würde und alles ausführlich kommentiert.
Bitte gehe den Code durch und versuche alles zu verstehen. Frage mich gerne auch bei Kleinigkeiten, ich denke dadurch kannst du viel lernen *Smilie
Code:

Hatte keine Dateien zum testen, daher bitte einen kurzen Hinweis, falls es Fehler gibt *wink.gif*

VG
Santa

 

Vielen lieben Dank!

Ich werde das morgen gleich testen, dann gebe ich Dir einen Feedback.

 

WOW - magisch. Es hat perfekt funktioniert. Ich musste lediglich .xls hinter dem Workbooknamen setzen, by SetQuelle....

Eine Frage habe ich: wenn ich Bezug auf Workbook("Book1").Worksheet("Sheet1") nehmen will, aber das Workbook nur dieses eine Sheet hat, muss ich das Sheet explizit erwähnen?


Ich danke dir vielmals.

 

Hallo noch mal,

im selben Bericht, den ich erstelle, habe ich eben erfahren, dass ein Bereich, den ich kopieren soll, auch "dynamisch" ist. Ich dachte mit dem Teil bin ich fertig, weil alles immer gleich bleibt. Pch gehabt.

Diese Zeile mit den Arrays würde perfekt passen, ich habe es schon getestet, aber in der Quelldatei ist jede zweite Zeile leer gelassen worden, und genauso wird es übertragen.

Wäre es einfach das so zu ergänzen, dass jede leere Zeile ignoriert wird und die Werte dann ohne leere Zeilen übertragen werden?

 

Hallo,

Das Blatt musst du immer angeben, auch wenn es nur ein einziges gibt.

Für die Frage mit den leeren Zellen kann ich mir eine Antwort vorstellen, aber am besten lädst du mir dafür mal eine Beispiel-Datei hoch. Quelle und Ziel können einfach zwei Blätter in dieser Datei sein.

Viele Grüße
Santa

 

ich habe eine Datei angehängt. Ich hoffe,es hat geklappt. Unter Tab Fremdfirma habe ich die Angaben so formatiert, wie ich sie täglich bekomme, also Spalte und Zeile stimmen. Ich habe auch die Zeilen ausgeblendet, wie Sie im Original auch sind.

Unter Mein_Unternehmen habe ich gezeigt, wohin die Daten kopiert werden sollen. Bitte beachten, dass die Namen und Anzahl der Ware immer unterschiedlich sind, deshalb der Bedarf nach Arrays.

Vielen Dank noch mal für deine Hilfe!

 

Hallo,

das geht auch ohne Arrays...

Code:

 

Ich bekomme in der Zeile
Code:

bei Tabelle1 die Fehlermeldung "Variable nicht definiert". Ich habe es mit vielen definierten Variablen ersetzt, aber dann kam immer "außerhalb des gültigen Bereichs". Was muss genau dort stehen?

EDIT: Ich habe die richtige Variable gefunden, jetzt kommt keine Fehlermeldung mehr, aber in der Zieldatei ist immer noch jede zweite eine leere Zeile. Vielleicht sind die Zeilen nicht ausgeblendet, sonder nur minimiert bzw. Zeilenhöhe = 0??

EDIT 2: Ja, sie sind auf 0 Höhe.... sorry

 

Hallo,

statt Tabelle1 sollte dort eigentlich wksBlatt_Z stehen.

VG
Santa

 

Wäre es einfach den Code so zu ändern, dass nicht ausgeblendeten Zeilen nicht berücksichtigt werden, sonder die leeren?

 

Ja das geht,

ersetze folgende Codezeile:
Code:

durch diese:
Code:

Funktioniert das in deiner Datei?

VG
Santa

 

Nein, an der Stelle kommt jetzt Laufzeitfehler 1004 : Bei einer Markierung von nicht angrenzenden Zeilen ist die Ausführung dieses Befehls nicht möglich.

 

Hm, dann sieht deine echte Datei anders aus, als dei Beispieldatei, da habe ich den Code erfolgreich getestet.

Da vielleicht beim Einfügen etwas schief gegangen ist, hier der Code von xlph mit meinen Anpassungen:
Code:

Falls das in deiner Datei nicht klappt, müsstest du eine neue Beispieldatei hochladen, in der man den Fehler nachstellen kann.

VG
Santa

 

Es klappt nicht, in der gleichen Zeile kommt die Fehlermeldung "Nicht zulässiger oder nicht gekennzeichneter Verweis."

Also kopierte ich die Dateien und wollte diese hochladen. Beim Öffnen kommt jedoch sofort eine Fehlermeldung bei Code:

Hauptmenü ist mein Userform. Warum das in der kopierte Datie nicht funktioniert, weiß ich nicht.

Ich bin verzweifelt, zumal das Projekt bereits drei Tage überfällig ist. Ich werde mich mit einer unschönen Lösung zufrieden geben müssen. Ich danke euch vielmals für eure Mühe.