Thema Datum  Von Nutzer Rating
Antwort
25.02.2017 18:43:05 Damir
NotSolved
26.02.2017 16:46:02 Mackie
NotSolved
Rot Alarmfunktion
 06.03.2017 14:04:52 Gast1901
NotSolved
06.03.2017 14:20:23 Mackie
NotSolved
06.03.2017 16:23:27 Gast70498
Solved

Ansicht des Beitrags:
Von:
Gast1901		 Datum:
06.03.2017 14:04:52		 Views:
670		 Rating:
     
Antwort:
  Ja
Thema:
Alarmfunktion

Hallo Mackie,

danke.

Ich komme leider als VBA-Anfänger leider nicht weiter. Der will die Datei einfach nicht zeitgleic mit der MsgBox abspielen. Kannst du mir sagen was ich da falsch mache. Danke und Grüße.

 

Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub ZeitVerzoegerung()
 
Dim start As Double
MsgBox "nach dem OK-Button - Fokus"
start = Timer
 
Do
   DoEvents
    
Loop Until Timer > start + 5
MsgBox " Ausgezeichnet"

 
End Sub

Sub Play()
     Call sndPlaySound32("c:\Windows\media\Windows-Papierkorb.wav", 2)
 End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.02.2017 18:43:05 Damir
NotSolved
26.02.2017 16:46:02 Mackie
NotSolved
Rot Alarmfunktion
 06.03.2017 14:04:52 Gast1901
NotSolved
06.03.2017 14:20:23 Mackie
NotSolved
06.03.2017 16:23:27 Gast70498
Solved