Office: (Office 2010) VBA Bestimmte Zellen aus einer anderen Datei in eine andere Datei kopieren

Ich denke, ich habe hier die Wurzel des Übels gefunden.
Hier werden je beide Workbooks als "DieseArbeitsmappe" definiert, das will ich ja gar nicht, da es sich um zwei verschiedene Dateien handelt, können ja wohl auch nicht beide Diese Arbeitsmappe sein, oder?
wkbÜbersicht befindet sich in einem andern Ordner und doll ja als zweite Datei mit den Daten aus wbkQuelle gefüllt werden.
Wie bekomme ich das aber hin, bzw. was muss ich dafür anders programmieren?

Wenn er die Workbooks nicht aber zuordnet, dann passen natürlich auch die Worksheets nicht.

 

Hallo,

1) ich schätze es nicht besonders, wenn jemand mich mit seinen frei erfundenen Texten zitiert.

2) Es wäre schön, wenn du zur Kenntnis nimmst, dass du einen falschen Arbeitsblatt-Zugriff ausgeführt hast und deshalb das Programm logischerweise abgebrochen wurde.
Der VBA-Code in der gelben Zeile muss mittels Arbeitsblatttabulatornamen lauten:
Set wsQuelle = wkbQuelle.Worksheets("Freigabeantrag") 'Quelle
Der VBA-Code unterhalb der gelben Zeile wird wahrscheinlich lauten müssen:
Set wsUebersicht = wkbUebersicht.Worksheets("Freigabetempl.") 'Ziel

oder aber mittels interner Blattnamen:
Set wsQuelle = wkbQuelle.Tbl2 'Quelle
Der VBA-Code unterhalb der gelben Zeile wird wahrscheinlich lauten müssen:
Set wsUebersicht = wkbUebersicht.Tbl4 'Ziel

 

Sorry mit dem Zitat, ich habe nicht gesehen, wie ich nach dem Zitat wieder weiter schreiben kann. .

Inhaltlich habe ich Diene Vorschläge beide probiert, ohne Veränderung im Ergebnis.
Durch die Debug.Print Zeile habe ich aber die wkb-Zuordnung vor Zuweisung der Arbeitsblätter abgefragt und es ist so, wie ich befürchtet habe, er erkennt die in wkbÜbersicht deklarierte Datei ohne Makros dann als wkb Quelle. das ist natürlich so nicht sinnvoll und nicht gewollt.

Set wkbQuelle = ActiveWorkbook
Set wkbUebersicht = Workbooks.Open("J:\03_Allgemeine Themen\06_Freigabeworkflow neue Materialien\Freigabeworkflow_Übersicht.xlsx")

Debug.Print wkbQuelle.Name

führt zu

hier sollte aber die Datei"Test_5715_SGl.xlsm" stehen.

Wie kann ich denn die Variable hier absolut mit dem korrekten Pfad und Dateinamen zuweisen.
Kann ich hier einfach wkbQuelle = workbooks("Pfad/Dateiname") schreiben? oder muss hier eine Operator dazu?

 

Hallo,

Wie eine solche Zuweisung (=Öffnen einer Excel-Datei) zu einer Workbook-Variable geschehen kann, siehst du doch hier:
Set wkbUebersicht = Workbooks.Open("J:\03_Allgemeine Themen\06_Freigabeworkflow neue Materialien\Freigabeworkflow_Übersicht.xlsx")
also:
Set wbkQuelle = Workbooks.Open("Laufwerk:\Pfad\Test_5715_SGl.xlsm")
wobei natürlich "Laufwerk:\Pfad" noch durch deine Dateisystem-Angaben zu ersetzen sind.

 

Okay, danke.
Jetzt scheint er das auch ohne explizite Zuweisung sauber anzunehmen. Eigentlich ist diese Datei ja auch der Ausgangspunkt, weil diese geöffnet wird um mit einem Button dann das Script zu starten.

Dann soll er die zweite Datei öffnen und die Werte aus der ersten Datei in die zweite Übertragen und nach Abschluss diese auch wieder schließen.
Bis dahin habe ich aber noch einige andere Hürden zu nehmen.
Hierzu aber schon einmal vielen Dank.