Hallo Zusammen,
habe folgendes Problem.
ich habe eine Hauptdatei "Cockpit2016.xlsm" in der ich alle Daten auswerten möchte
Mit folgendem Befehl öffnen ich eine beliebige Datei, kopiere diese dann ins "Cockpit2016" //Tabelle2 und hole mir daraus die ganzen Informationen.
Dim Erfolg As Boolean
Erfolg = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg Then MsgBox "keine DAtei ausgewählt"
Cells.Select
Selection.Copy
Windows("Cockpit2016".xlsm").Activate
Sheets("Tabelle2").Select
Cells.Select
ActiveSheet.Paste
Das mach ich dann mit mehrere Dateien.
Damit ich am Ende nicht 5 verschiedene Excel Files offen habe nun meine Frage, wie ich diese unterschiedlichen Dateien bis auf "Cockpit2016.xlsm" schließen kann?
Vielen Dank für eure Hilfe
Tyroler