Office: VBA Datenbereich kopieren

Hallo Forum,
ich bin neu hier und habe lediglich VBA-Grundkenntnisse

Ich möchte aus der MappeA Tabellenblatt Kontrolle Daten in die MappeB Tabellenblatt Kurse
kopieren.
Zum Testen habe ich zunächst beide Mappen geöffnet, jedoch mein Code ergibt kein Ergebnis.
Fehlermeldung: Methode Range für Worksheet fehlgeschlagen.
Was muss ich an meinem Code ändern?
Was muss ich ändern, wenn später die MappeB geschlossen ist?

Ich bin für jede Hilfe dankbar.

Der Mampfred

 

Hi,

du darfst als Zielzelle nicht nur die Spalte "A" angeben sondern musst auch eine Zeile angeben:

Code:

wsKontrolle.Range("G1:G" & lngLZeileKontrolle).Copy wsKurse.Range("A1")

Wenn die andere Mappe geschlossen ist, musst du sie vor dem Kopieren öffnen (und kannst sie danach wieder schließen).

---

 

Hallo,

statt wsKurse.Range("A") als Kopierziel wsKurse.Range("A1") verwenden, denn wsKurse.Range("A") ist ein ungültiger Bereichsausdruck.

Wenn du das Ganze mit VBA lösen willst, musst du zwingend zuerst MappeB öffnen, zB. mit

Code:

   Dim wbMappeB As Workbook, wsKurse As Worksheet
   set wbMappeB = Workbooks.Open("C:\Pfad\MappeB.xlsm")
   set wsKurse = wbMappeB.Worksheets("Kurse")
   '... usw. ...

Du kannst den Kopiervorgang aber auch mit Arbeitsblattfunktionen lösen (ohne VBA). Dann aber musst du die Formel im Zielblatt platzieren. Sind beide Arbeitsmappen geöffnet, dann sieht die Kopierformel in MappeB in Zelle Kurse!A1 folgendermaßen aus: {='[MappeA.xlsm]Kontrolle'!$G$1:$G$11}
Wenn du aber zB. anschließend die MappeA schließt, wandelt sich diese Formel in:
{='C:\Pfad\[MappeA.xlsm]Kontrolle'!$G$1:$G$11}

Es handelt sich also beidesmal um eine Array- oder Matrixformel, wobei die geschweiften Klammern nicht direkt eingegeben werden dürfen, sondern:
1) Zuerst den Zellbereich, für den die Formel gültig sein soll, markieren: das wäre Kurse!A1:A11
2) In die Formeleditierzeile die Formel ohne "{" bzw. "}" eingeben
3) Die Formeleingabe nicht mit der bloßen EINGABE-Taste abschließen, sondern mit der Tastenkombination Strg+UMSCHALT+EINGABE.
4) Daraufhin erscheint die Formel im markierten Zellbereich - zusätzlich in geschweiften Klammern eingeschlossen wie oben.
5) Statt C:\Pfad\ musst du natürlich deinen Dateipfad eingeben.
6) In der beiliegenden Datei habe ich das nicht in Spalte A eingebaut, sondern in Spalte C.

 

Hallo Beverly, hallo Anton,

vielen Dank für Eure schnellen Antworten.
Ich habe mich für die VBA Lösung entschieden.

Ich habe den Code nun angepasst und er funktioniert einwandfrei.
Diesen Codeteil habe ich noch eingebaut und bin vollkommen zufrieden.
ActiveWindow.WindowState = xlMinimized

Danke nochmals
der Mampfred