ich habe folgenden Code. Diesen möchte ich quasi als Addin manuell auslösen wenn eine Datei mit bestimmten Tabellenblatt geöffnet ist. Dann möchte ich gerne daraufhin eine Datei öffnen lassen und von der letzten etwas dahin hineinkopieren. Das klappt auch alles so wie ich es möchte.
Nur möchte ich nun wieder jedoch in die vorige Datei zurückkehren um aus einem nächsten Tabellenblatt wieder etwas zu kopieren und anschließend wieder in die geöffnete zu kopieren.
Wie kann ich quasi hin und her wechseln? Das Problem bei dem Worksheets("Tabelle1").Select
ist hierbei das diese Datei keinen festen Pfad zugeordnet ist. Das makro müsste quasi nur mit der geöffneten Datei arbeiten können.
Sprich Klick auf Makro und dann:
Worksheets("Tabelle1").Select
Cells.Select
Cells.Copy
Workbooks.Open ("...\Basisdatei.xlsm")
Worksheets("Input1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
....(wie komme ich nun wieder in vorige Datei zurück und dann wieder in die andere?)
Danke und Grüße
Henrique