Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
10.10.2025 09:33:21
Alle vorhanden Elemente in einer Spalte extra abbilden.
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Popup Fenster inkl auto schliesen

Forumthread: 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

Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

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
VBA "Abfrage Vorname - dann Pop up mit Namen
Fabio

Hallo zusammen,
für einen "Kleinen Gag" suche ich ein "VBA-Script" (oder so), das folgendes ausführt:
1. Beim Start der Datei soll vor der eigentlich ein "Fenster" aufgehen, in dem man nach dem Vornamen gefragt wird" - und den man dann eintippen muss.
2. Nach "ok" - soll ein weitere...
29.01.2010 18:22:34
Thread-ID: 1134221
4 Beiträge
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 - neu
Julia

Hi!
ich hatte das Problem schon einmal hier hineingestellt und auch eine super tolle Antwort von Tino erhalten (nochmal Danke dafür!!!), das Makro läuft 1A in den darauf zugeschnittenen Dateien.
Jetzt wollte ich es auf eine etwas andere Anordnung der Excel Tabelle übertragen, aber da is...
04.07.2013 11:58:52
Thread-ID: 1321056
8 Beiträge
Internet Explorer PopUp via VBA abfangen
Steffen

Hallo zusammen,
ich öffne aktuell via VBA ein Browserfenster um dort Daten auszulesen. Dies funktioniert soweit auch ganz gut. Allerdings wird beim ersten Öffnen eine Bestätigung der Benutzerdaten verlangt. Es taucht also ein PopUp-Fenster auf welches mit der Enter -Taste bestätigt werden m...
07.10.2013 19:37:27
Thread-ID: 1333481
3 Beiträge
Anzeige
VBA PopUp
Thomas

Hallo zusammen,
ich suche nach einem VBA Pop Up der mir beim Start einer Excel Datei eine Nachricht rausgibt.
In meiner Excel Datei habe ich eine Formel eingebaut, welche mir nach Ablauf eines angegebenen Datums eine Erinnerung ausgibt.
Wäre es möglich, dass man mit VBA die Spalte F...
08.10.2013 19:31:55
Thread-ID: 1333612
2 Beiträge
Anzeige
Popup-Fenster als Kommentar-Ersatz
Mathias

Hallo,
ich möchte die Kommentarfunktion von Excel ersetzen, wobei das Look-and-Feel möglichst ähnlich sein sollte.
Die Textdaten sollen von einem anderen Tabellenblatt übernommen werden. Die "Gültigkeitsprüfung" fällt damit als Alternative flach.
Hat jemand schonmal ein Popup-Fenst...
23.10.2013 12:45:03
Thread-ID: 1335538
8 Beiträge
Pop-Up fenster für eine Eingabe
Dennis

Hallo zusammen,
ich habe mal wieder ein Problem und hoffe auf eine Lösung von euch - hat bisher fantastisch geklappt. :-) Folgende Situation: in einem Arbeitsblatt werden per CommandButtons E-Mails generiert. In der Betreffzeile muss der Benutzer ein paar XXXXX durch eine bestimmte Nummer e...
09.01.2015 11:26:56
Thread-ID: 1401720
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige