Popup stoppt ganzes Makro bis zum Schließen
09.07.2008 13:24:00
Susanne99
kriege bei einem Code immer ein Popup als Warnung. Eigentlich sollte sich das Popup in dem Code unten selbstständig schließen. Tut es aber leider nicht. Mein 1. Problem.
2. Problem ist: Solange das Popup auf ist, wird das gesamte Makro angehalten. Bis zum Schließen. Ich will ja eigentlich nur einen Hinweis, aber kein Stopp des Makros. Wie kann man das ändern?
OFF Topic noch: Der Code ist als Archiv gespeichert hier im Forum. Eine neue Frage anhängen an den Thread geht dann nicht, oder?
Hier das Posting von Chris(Danke)
Die Sache mit der Warnmeldung ist interessant. Kann man das noch so erweitern, daß das Popups sich automatisch nach z.b. 1 Minute wieder schließt? Und , daß es beim "Aufpoppen" einen Sound erzeugt?
LG Susanne
Servus Susanne,
mal ein Beispiel:
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
in ein allgemeines Modul
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WshShell
Dim intText As Integer
If Target.Address = "$H$16" Then
If Target = "" Then Exit Sub
If IsNumeric(Target) And Target > 800 Then
Call sndPlaySound32("C:\Alte Daten\Daten\SONSTIGES\Scheißbirschdn.wav", 1)
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Erinnerungstext", 10, "Erinnerung", vbSystemModal)
End If
End If
End Sub
ins Modul des Tabellenblattes.
Wenn du in H16 einen Wert größer 800 eingibst, erklingt ein Sound und es geht ein Popup-Fenster auf, das sich nach 10 Sek. schließt (die 10 in inText).
Die .wav-Datei muss im angegebenen Pfad existieren, dass musst du noch anpassen, sonst gibt's natürlich einen BUG.
Gruß
Chris