save as --- Laufzeitfehler 1004
08.08.2005 19:30:33
Peter
Mit nachstehendem Code erstelle ich eine Kopie diverser Tabellenblätter, speichere sie an einem vorgegeben Ort und lösche sie in der aktuellen Anwendung; dies klappt auch einwandfrei.....jedoch nicht wenn am Speicherort bereits eine Datei dieses Namens existiert...dann kommt Laufzeitfehler 1004
Public
Sub Auslagern()
Application.ScreenUpdating = False
Sheets("finanzdaten").Visible = True
Sheets("kunden").Visible = True
Sheets("Start").Visible = True
Sheets("angebot").Visible = True
Sheets("eigenleist").Visible = True
Dim myWorksheet As Worksheet
Sheets(Array("kunden", "finanzdaten", "angebot", "eigenleist", "Start")).Copy
ActiveWorkbook.Sheets("finanzdaten").Visible = xlVeryHidden
ActiveWorkbook.Sheets("kunden").Visible = xlVeryHidden
ActiveWorkbook.Sheets("angebot").Visible = xlVeryHidden
ActiveWorkbook.Sheets("eigenleist").Visible = xlVeryHidden
Call setzen
ActiveWorkbook.SaveAs "C:\ApolloFinStar\Daten\" & UserForm5.TextBox2.Value
ActiveWorkbook.Close
Workbooks("ApolloFinStarWindow.xls").Activate
Sheets(Array("kunden", "finanzdaten", "angebot", "eigenleist", "Start")).Delete
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub
Welche Lösungsmöglichkeiten gibt es dafür?
Danke für Euere Hilfe
Peter S.