und zwar hab ich folgendes Problem.
Ich möchte aus beliebigen Excel Files die kompletten Daten in mein Hauptfile kopieren.
Anschließend soll das Files, aus der ich die ganzen Daten kopiert habe, wieder schließen. Bis jetzt hab ich folgende Code verwendet:
MsgBox "Bitte aktuelle Auswertung auswählen"
Dim Erfolg1 As Boolean
Erfolg1 = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg1 Then MsgBox "keine DAtei ausgewählt"
Cells.Copy 'kopiert aktives Blatt
Windows("test.xlsm").Activate
With Workbooks("test.xlsm")
'kopiert ohne Select oder Activate in Tabelle2
.Sheets("SBM").Cells.PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
Dim AB As Workbook
Dim AC As Workbook: Set AC = ThisWorkbook
'False mit True ersetzen, wenn die zu schließenden
'Mappen vor dem Schließen gespeichert werden sollen
For Each AB In Workbooks
If AB.Name AC.Name Then AB.Close False
Next
Das Problem an dem Code ist, dass er alle Excel schließt bist auf Test.xlsm.
Da ich aber immer an andern Files auch arbeite, soll er nur das File schließen, dass ich zum kopieren geöffnet habe.
Hoffe ihr könnt mir weiterhelfen.
Vielen Dank
Tyroler