Fenster aktivieren
05.01.2004 14:07:10
Jos
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