geöffnetes Workbook(Dateiname).Close funzt nicht?!
Christoph
Ich habe folgendes Makro,das einwandfrei funktioniert:
__________________________________________________________
Sub Add()
Dateiname = Application.GetOpenFilename("Excel-Dateien (*.xls), .xls")
If Dateiname = False Then Exit Sub
Workbooks.Open Filename:=Dateiname
Worksheets(1).Copy after:=Workbooks("Datei.xls").Worksheets(Worksheets.Count)
Workbooks(2).Close
End Sub
________________________________________________________________
Ich will nun aber nicht Workbook(2) schliessen (da hier immer das zweite Workbook geschlossen wird),sondern genau das, dass ich vorher geöffnet habe!Irgendwie funktioniert aber Workbooks(Dateiname).Close nicht!
Wer kann mir dabei helfen?
Vielen Dank schonmal im Vorraus!!
Anzeige