Einzelnes Tabellenblatt speichern
14.09.2003 17:30:06
Andreas
Ich habe einen Code wo eineinzelnes Tabellenblatt gespeichert wird.
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "\"
sWks = InputBox( _
prompt:="Blattname", _
Default:="Wehrführerprotokoll")
If sWks = "" Then Exit Sub
sFile = InputBox( _
prompt:="Dateiname:", _
Default:="C:\2003\WF\")
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sFile
Application.ScreenUpdating = True
Meine Frage wie bekomme ich es hin das das Kopierte Tabellenblatt sich automatisch schließt und nicht im hintergrund Aktive bleibt.
Gruss Andreas