SaveAs..überspeichern ohne Rückfrage?
02.12.2005 09:16:41
Peter
mit nachstehendem Code lagere ich die bezeichneten Tabellen in eine extra Datei aus, verberge die Tabellen 2-5 und lösche sie anschließend aus der Ursprungsdatei. Funktioniert auch bestens, jedoch nur dann wenn die zu speichernde Datei nicht schon unter dem selben Namen (oder is es der gleiche?)existiert, dann gibts ne Fehlermeldung. Was kann ich da ändern?
Public
Sub Auslagern()
Application.ScreenUpdating = False
Sheets("Tabelle1").Visible = True
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Sheets("Tabelle4").Visible = True
Sheets("Tabelle5").Visible = True
Dim myWorksheet As Worksheet
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")).Copy
ActiveWorkbook.Sheets("Tabelle2").Visible = xlVeryHidden
ActiveWorkbook.Sheets("Tabelle3").Visible = xlVeryHidden
ActiveWorkbook.Sheets("Tabelle4").Visible = xlVeryHidden
ActiveWorkbook.Sheets("Tabelle5").Visible = xlVeryHidden
Call setzen
ActiveWorkbook.SaveAs "C:\Ordner1\Ordner2\" & UserForm5.TextBox2.Value
ActiveWorkbook.Close
Workbooks("MeineDatei.xls").Activate
Application.DisplayAlerts = False
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")).Delete
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub
Vielen Dank für Eure Mühe
PeterS.
Anzeige