Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Popup Fenster inkl auto schliesen

Popup Fenster inkl auto schliesen
16.09.2020 11:20:53
Sven
Moin an alle,
ich verwende den folgenden Code um einen Popup Fenster nach 1 Sekunden automatisch zu schließen. Jedoch schließt es erst nach - Laut Stoppuhr - 3,8 Sekunden. Kann mir einer sagen woran das liegt und ob ich die Zeit eventuell mit einer Sleep Funktion verbinden kann, sodass ich auf Millisekunden genau die Zeit wählen kann? Danke

Sub Popup()
Const bytZeit As Byte = 1

Set Nachricht = CreateObject("Wscript.shell")

Nachricht.popup "Daten werden aktualisiert, einen Moment Geduld...", bytZeit

Set Nachricht = Nothing
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Popup Fenster inkl auto schliesen
16.09.2020 11:44:54
Nepumuk
Hallo Sven,
teste mal:
Option Explicit

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

Private Const MB_TIMEOUT As Long = &H7D00

Public Sub test()
    
    Dim lngReturn As Long
    
    lngReturn = MessageBoxTimeoutA(Application.hWnd, "Hallo", _
        "TimeoutTest", vbYesNo Or vbInformation, 0, 5000) '5000 = 5 Sekunden
    
    Select Case lngReturn
        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 lngReturn
    End Select
End Sub

Gruß
Nepumuk
Anzeige
AW: Popup Fenster inkl auto schliesen
16.09.2020 11:51:22
volti
Hallo Max,
den kannte ich jetzt noch nicht. Danke für den Hinweis.. :-)
VG KH
AW: Popup Fenster inkl auto schliesen
16.09.2020 11:56:21
volti
Nachtrag:
Die Funktion steht auch nicht in meiner API-Liste bzw. API-Viewer. Ist der neu oder wo hast Du den her, wenn man fragen darf?
VG KH
AW: Popup Fenster inkl auto schliesen
16.09.2020 12:06:05
Nepumuk
Hallo Karl-Heinz,
das habe ich im Internet gefunden.
Gruß
Nepumuk
AW: Popup Fenster inkl auto schliesen
16.09.2020 12:07:06
Sven
Wow Nepumuk, das ist schon sehr advanced! Läuft absolut sauber. Danke
AW: Popup Fenster inkl auto schliesen
16.09.2020 11:48:57
volti
Hallo Sven,
bei mir dauert Dein PopUp genau eine Sekunde, auch bei mehrfachem Aufrufen.
Ich verwende diese PopUp's aber auch und in der Tat habe ich ab und zu auch den Eindruck, dass es auch mal länger als angegeben dauert.
Lösung habe ich leider keine.
PS: Da der Code während der Anzeige nicht weiterläuft, kann man da m.E. auch (zu mindestens nicht mit einfachen Mitteln) nichts mit Sleep (z.B. Close-Befehl senden) machen.
viele Grüße
Karl-Heinz
Anzeige

302 Forumthreads zu ähnlichen Themen

PopUp mit Eingabefeld
Peter

Hallo!
Wer kann mir hier weiterhelfen? Ich versuche ein PopUp zu erstellen, in welchem ein Eingabefeld für einen Betrag ist. Der Betrag soll dann in eine Zelle der Tabelle geschrieben werden. Bisher kann ich leider nur diese Pop ups erstellen:
Sub Abfrage() If MsgBox( _ prompt:="Bitte...
27.10.2008 23:54:26
Thread-ID: 1019775
2 Beiträge
Anzeige
Makro: Wenn dann
Julia

Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schrei...
26.03.2009 12:47:12
Thread-ID: 1064207
12 Beiträge
pop up Fenster bei Fehler eines updates
Michael

Hallo!
Ich habe eine Tabelle die alle 30 Minuten im Hindergrund aktualisiert wird. Wenn bei der Aktualisierung ein Fehler auftritt, soll ein popup Fenster erscheinen. (Egal wo ich mich dann aktuell im System befinde/ Word / outlook etc.)
Danke
Gruß Michael
01.10.2009 12:12:04
Thread-ID: 1106590
4 Beiträge
Anzeige
Popup-Fenster
Ringlstetter

Hallo allerseits,
ich möchte nur in einem bestimmten Tabellenblatt ein Popup haben, welches eine Frage stellt. Die Zahl als Antwort soll dann in ein bestimmtes Feld geschrieben werden.
Das Popup soll so lange fragen und die Werte immer ein Feld unter dem letzten eingeben, bis in einem a...
05.03.2010 10:47:24
Thread-ID: 1143587
5 Beiträge
POP UP Fenster
pitmu1@web.de

Hallo zusammen,
suche eine Excel Lösung für folgendes Problem:
Habe z.Bsp. eine Zelle in der die Anzahl meiner Besuche im z.Bsp. April stehen.
Beim Klicken auf diese Anzahl soll nun ein POP UP Fenster geöffnet werden, indem
die einzelnen Besuche mit genauem Termin darinstehen b...
01.07.2010 16:29:31
Thread-ID: 1164979
2 Beiträge
Fensterstatus: xlminimized beim Öffnen setzen
Constantin

Hallo,
es ist mir nicht gelungen, folgendes Problem zu lösen: Ich habe eine Mappe1 im Pfad1, die ich öffne. Da ich dort Gültigkeitsregeln hinterlegt habe, die in Mappe2, Pfad2 stehen bzw. definiert sind (als Liste mit Bezug auf Mappe2), möchte ich Mappe2 (nur READ) beim Öffnen von Mappe1 gl...
04.01.2013 13:03:42
Thread-ID: 1292866
3 Beiträge
PopUp Fenster in bestimmtes Arbeitsblatt
Ann

Hallo Leute,
ich hab ein Workbook, in das ich Daten einlese und verarbeite. Am Ende soll sich ein PopUp-Fenster öffnen, das angibt, dass das Programm fertig ist. Das funktioniert auch soweit, nur habe ich drei Sheets und das PopUp-Fenster öffnet sich im 3. und nicht wie gewollt im 1.
Di...
13.05.2013 16:37:33
Thread-ID: 1312755
4 Beiträge
automatisches EMail wenn Wert überschritten
Julia

Hi!
ich habe eine Exceltabelle mit Messwerten pro Monat. Zu jedem Messwert gibt es einen Grenzwert, den ich "überwachen" muss. Da ich von diesen Tabellen sehr viele habe dachte ich an eine autmatisierte EMail aus Excel heraus, sobald der Grenzwert erreicht bzw. überschritten wurde (Text mus...
24.06.2013 10:16:05
Thread-ID: 1319275
14 Beiträge
Anzeige

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
1
2
11
3
3
4
1
2
3
13
7
2
1
7
5
9
2
7
2
3
1
1
10
5
1