Fehler bei Auto-Makro vor Schließen
02.06.2007 20:38:00
KiaOra
habe wieder mal ein kleines Problem - hoffe, Ihr könnt mir weiterhelfen! ;-)
Habe eine Datei "Tagungsorga" mit einem Blatt "BE".
Beim Speichern der Datei soll folgendes geschehen:
1) Ausblenden/ Verstecken des Reiters "BE" und Speichern der Datei unter aktuellem Dateipfad u. -name (je nach User).
2) Erstellen einer Kopie der Datei mit dem Titel "Kopie-Tagungsorga_ohne-BE"
3) Löschen des Reiters "BE" und (!) des VBA-Codes in der Kopie und Speichern am gleichen "Ort" wie die Hauptdatei
Habe mich dazu an einem VBA-Code versucht (s.u.), an dem ich leider kläglich gescheitert bin... :-(
Hoffe, jemand von Euch weiss Rat...! :-)
Private Sub Workbook_BeforeSafe(ByVal SaveAsUI As Boolean)
Sheets("BE").Visible = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Kopie-Tagungsorga_ohne-BE" & ".xls"
Sheets("BE").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
VG u ganz herzlichen Dank für jeden Tipp,
Micha
Anzeige