Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel schliessen.

Excel schliessen.
06.08.2003 15:23:11
Daniel
Hallo Freunde,
mit der Code:

Sub beenden()
Dim sMag As String
sMsg = "Soll test geschlossen und gespeichert werden?"
Select Case MsgBox(sMsg, vbInformation + vbYesNoCancel)
Case vbYes: ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Unprotect
Application.DisplayFullScreen = False
Application.ScreenUpdating = True
Application.Quit
Case vbNo: Call Weiterbeinein
Case vbCancel: Call Weiterbeiabbruch
End Select
End Sub

soll nicht nur der Datei test, sonder Excel geschlossen werden + den Ganzen Bildschirm schliessen.
TEST WIRD GESCHLOSSEN, DER REST NICHT!!!
Ich bitte um Hilfe!
Grüß Daniel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel schliessen.
06.08.2003 15:28:27
IVAN
hi Daniel
Aplication.Quit
am ende deines codes!
GRUSS
IVAN

AW: VERBESSERUNG
06.08.2003 15:34:04
ivan
sorry habe ein P vergessen
Application.Quit

AW: Excel schliessen.
06.08.2003 15:38:22
Daniel
Hallo, Ivan
Ich habe APPLICATION.QUIT zwischen END SELECT und END SUB: passiert garnix.
Gruß Daniel

AW: Excel schliessen.
06.08.2003 16:01:12
ivan
hi Daniel
da waren einige fehler drinnen
und es sind noch immer welche drinnen
aber das kann sein weil ich die call anweiungen ja nicht habe
und mir ist nicht ganz klar was das werden soll.
vieleicht kanst das einmal genau beschreiben
aber so funkt es einmal!
Option Explicit

Sub beenden()
MsgBox "Soll test geschlossen und gespeichert werden?"
Select Case MsgBox(vbInformation + vbYesNoCancel)
Case vbYes: ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Unprotect
Application.DisplayFullScreen = False
'Case vbNo: 'Call Weiterbeinein
'Case vbCancel: 'Call Weiterbeiabbruch
End Select
Application.ScreenUpdating = True
Application.Quit
End Sub


Anzeige
AW: Excel schliessen.
06.08.2003 16:20:10
Daniel
Hallo, Ivan
Hat es geklappt.
Habe der "APPLICATION.QUIT" mit "activeWorkbook.Close" getauscht!!

Sub beenden()
MsgBox "Soll test geschlossen und gespeichert werden?"
Select Case MsgBox(vbInformation + vbYesNoCancel)
Case vbYes: Application.Quit
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Unprotect
Application.DisplayFullScreen = False
'Case vbNo: 'Call Weiterbeinein
'Case vbCancel: 'Call Weiterbeiabbruch
End Select
Application.ScreenUpdating = True
End Sub

Danke und Gruß
Daniel.

Anzeige
AW: Excel schliessen.
06.08.2003 16:25:53
ivan
HI DANIEL
du hast doch gepostet das excel beendet werden soll!
gruss
ivan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige