Hallo Forum!

Lasse dieses Makro ablaufen. Es soll damit enden, daß das Fester mit der akuellen Datei geöffnet wird. Leider ist dies nicht der Fall, wer kann helfen??

Danke!

Sub Import()
Dim datei As String
datei = ActiveWorkbook.Name
...
Windows(dateiname).Activate
Cells.Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Windows(dateiname).Close savechanges:=False
Windows(datei).Activate
Sheets("Tabelle1").Select

End If