Arbeitsmappe ohne Makros speichern
29.09.2004 11:05:30
Vitali
Ich möchte einen Tabellenblatt in eine andere Arbeitsmappe ohne die Makros kopieren. Dazu habe ich folgendes Code:
Sub Blatspeichern()
Dim Original As String
Dim Kopie As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Original = ActiveWorkbook.name
Kopie = InputBox(prompt:="Dateiname: ", Default:=ActiveSheet.name & ".xls")
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Workbooks(Original).path & Kopie
Workbooks(Original).Activate
ActiveSheet.Copy Before:=Workbooks(Kopie).Sheets(1)
Workbooks(Kopie).Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Das Problem ist nur dass, ich eine Fehler kriege:
Laufzeitfehler '9'
Index außerhalb des gültigen Bereichs.
Wo ist mein Fehler?
Danke.
Anzeige