Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelnes Tabellenblatt speichern

Einzelnes Tabellenblatt speichern
14.09.2003 17:30:06
Andreas
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelnes Tabellenblatt speichern
14.09.2003 17:40:04
andreas e
hallo andreas,
wie wäre es vor dem screenupdating mit activeworkbook.close
Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
AW: Einzelnes Tabellenblatt speichern
14.09.2003 17:52:09
Andreas
Hallo
Danke für die Hilfe
Andreas
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige