Office: (Office 2019) Werte ausschneiden und in anderer Mappe einfügen

Hallo zusammen,

ich möchte Werte aus einer Mappe ausschneiden und in eine andere Mappe einfügen. Die Werte stehen in Mappe 1 von A2:AW2 und sollen in Mappe 2 in die Spalte A eingefügt werden.
Ich habe mir auch schon ein Makro "gebastelt" aber irgendwie klappt es nicht!

Ich hoffe es kann mir jemand helfen. Vorab schon mal Danke.

Hier noch mein Marko:
Code:

:)

 

Hi,

hier:

Code:

ist auf jeden Fall der rot markierte Teil zuviel.

 

Hi,

auch wenn ich den rot markierten Teil weg lasse funktioniert es nicht.

 

Hi,

du musst 2 Zeilen daraus machen wenn du PasteSpecial verwendest:

Code:

 

Hi,

vielen Dank!
Jetzt funktioniert es.

 

Hallo,

ich hätte nochmal eine Frage zu dem Code.

Bei dem jetzigen Code werden die Werte so kopiert:

Code:

Jetzt können aber mehrer Werte in Sheets(1) stehen, z.B. von A2:AW10 oder von A2:AW5.
Kann man das variabel machen sodass nur die Werte kopiert werden die auch wirklich vorhanden sind?
Dann sollen die Werte in Sheets(7) immer nach der letzten Zeile die mit Werten gefüllt ist eingefügt werden.

Kann mir da jemand helfen?

Danke im Voraus.

 

Hi,

ungetestet:

Code:

 

Hallo Karin,

leider keine Funktion. Ich bekomme folgenden Fehler:

Laufzeitfehler '91:
Objektvariable oder With-Blockvariable nicht festgelegt

Und die folgende Zeile ist im Code gelb markiert:
Code:

Kannst du nochmal helfen?

Danke im Voraus.
Gruß Tim

 

Hi Tim,

diese Zeile habe ich nur aus deinem ursprünglichen Code vom 19.10.2020 10:48 übernommen.

Allerdings hat der Code noch einen Fehler, denn das zweitemal darf nicht Bezug auf wbSource.Sheets(1) sondern musst auf wbTarget.Sheets(2) genommen werden, da dies ja die Zieltabelle ist in die kopiert werden soll. Der Code muss also wie folgt aussehen:

Code:

 

Hallo Karin,

vielen Dank!!!
Jetzt funktioniert es.*Smilie

Gruß Tim

 

Hi Tim,

setze den Thread bitte auf erledigt.