UF automatisch schliessen

Liebe Excler,
letzte Frage fuer heute ;-)
Ich habe folgenden Code mit welchem ich das Programm schliessen kann, wenn ich keine Buttons auf meiner UF auswaehle sondern auf X druecke:


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Last Change Date: 01/21/2009
'closes the Excel Spreadsheet if user cancels the message box with the 2 buttons for Sales and  _
Purchasing
On Error GoTo showErrorMsg
If CloseMode  1 Then
MsgBox "The Program is about to close now"
ThisWorkbook.Close savechanges:=False
End If
GoTo endSubOrFunction
showErrorMsg:
MsgBox "ERROR OCCURRED: " & vbNewLine & vbNewLine & _
"Please contact SSR Department!" & vbNewLine & _
vbNewLine & _
"Source: ThisWorkbook.UserForm_QueryClose" & vbNewLine & _
Err.Description & " [#" & Err.Number & "]", vbCritical, "Error message"
endSubOrFunction:
End Sub

Gibt es eine Moeglichkeit, den Code so zu erweitern, dass sich das Programm nach der msgbox "The program is about to close now" automatisch schliesst? Z.B. nach 3 Sekunden? Denn jetzt ist es so, dass ich nach dem X nochmal auf OK druecken muss, damit das Programm schliesst.
Vielen Dank fuer eure Hilfe!
Liebe Gruesse
Timmy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MsgBox3Sekunden() ' von Franz W Herber.de ' Verweis auf Microsoft Scripting Runtime Dim WsShell Dim intText As Integer Set WsShell = CreateObject("WScript.Shell") intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch.. _ .") ' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an. End Sub

Hallo
probier mal

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Last Change Date: 01/21/2009
    'closes the Excel Spreadsheet if user cancels the message box with
    'the 2 buttons for Sales and Purchasing
    Dim WsShell As Object
    Dim intText As Integer
    On Error GoTo showErrorMsg
    If CloseMode <> 1 Then
        Set WsShell = CreateObject("WScript.Shell")
        intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch..")
        'MsgBox "The Program is about to close now"
        ThisWorkbook.Close savechanges:=False
    End If

    GoTo endSubOrFunction

    showErrorMsg:
    MsgBox "ERROR OCCURRED: " & vbNewLine & vbNewLine & _
    "Please contact SSR Department!" & vbNewLine & _
    vbNewLine & _
    "Source: ThisWorkbook.UserForm_QueryClose" & vbNewLine & _
    Err.Description & " [#" & Err.Number & "]", vbCritical, "Error message"
    endSubOrFunction:
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UF automatisch schliessen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread