Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Msgbox-Timer

Msgbox-Timer
02.10.2019 08:28:41
Peter
Servus Gemeinde,
gibt es die Möglichkeit einen Timer für eine Msgbox zu setzten, sodass nach einer halben Sekunde, dass Fenster automatisch geschlossen wird?
Folgenden Code habe ich schon gefunden, dieser funktioniert aber iwie nicht, da sich das Fenster nicht automatisch schließt.
Sub Error123()
Cancel = True
Dim i As Integer
i = CreateObject("WScript.Shell").PopUp("Error", 0.5, "Error")
End Sub

vielen Dank im voraus.
Gruß
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Msgbox-Timer
02.10.2019 08:44:06
Nepumuk
Hallo Peter,
ein Beispiel:
Option Explicit

Private Declare Function MessageBoxTimeoutA Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal lpText As String, _
    ByVal lpCation As String, _
    ByVal uType As Long, _
    ByVal wLanguageId As Integer, _
    ByVal dwMiliseconds As Long) As Integer

Private Const MB_TIMEOUT As Long = &H7D00

Public Sub test()
    
    Dim intReturn As Integer
    
    intReturn = MessageBoxTimeoutA(Application.hWnd, "Hallo", _
        "TimeoutTest", vbYesNo Or vbInformation, 0, 5000) '5000 = 5 Sekunden
    
    Select Case Clng(intReturn)
        Case MB_TIMEOUT
            Debug.Print "TimeOut"
        Case vbOK, vbYes
            Debug.Print "Ok, Ja"
        Case vbAbort, vbCancel
            Debug.Print "Abrechen"
        Case vbNo
            Debug.Print "Nein"
        Case vbRetry
            Debug.Print "Wiederholen"
        Case Else
            Debug.Print intReturn
    End Select
End Sub

Gruß
Nepumuk
Anzeige
AW: Msgbox-Timer
02.10.2019 09:07:22
Torsten
Hallo Peter,
versuch mal:

Sub Error123()
Cancel = True
Dim i As Integer
i = CreateObject("WScript.Shell").PopUp("Error", 2, "Error")
End Sub
Gruss Torsten
AW: Msgbox-Timer
02.10.2019 09:12:28
Torsten
nein, geht nicht. Aber so: 

Sub Error123()
Cancel = True
Dim i As Integer, iDauer as Integer
iDauer = 2
i = CreateObject("WScript.Shell").Popup("Error", iDauer, "Error")
End Sub

Gruss Torsten

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge