-
Funktioniert NICHT (Kopie der Spalten A und B) in ein neues Tabellenblatt in einem anderen WKB = NICHT OK
wkbQuelle.Sheets(Rst).Range("A:B").Copy After:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
Das kann nicht funktionieren, da du hier versuchst ein Range-Objekt auf ein Worksheet-Objekt anzuwenden.
Du merkst hoffentlich: das sind zwei unterschiedliche Objekttypen. Was gesprochen - also für einen Menschen - Sinn macht, ist programmatisch völliger Unsinn.
So sollte es funktionieren:
Dim wksZiel As Excel.Worksheet
Set wksZiel = wkbZiel.Worksheets.Add() ' der Mappe in neues Tabellenblatt hinzufügen
wkbQuelle.Worksheets(Rst).Range("A:B").Copy After:=wksZiel.Range("A:B")
Grüße
PS: Wenn du Tabellenblätter meinst, dann nutze den Datentyp Worksheet und die Auflistung Worksheets() - das ist klarer formuliert / unmissverständlich.
|