Sub AutoPieps()
Dim I As Integer
For I = 1 To 1
If Range("a24") = 1 Then
Call Pieps
Exit For
Else
End If
Next
End Sub
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
'by Ramses
Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Aufruf erfolgt mit z.B.
'=WENN(A1<0;SoundPlay(1);"")
'oder
'=WENN(A1<0;SoundPlay(1);WENN(A1>100;SoundPlay(2);"")
Function Soundplay(mySound As Integer)
Dim dummy As Long, strsounddatei As String
If waveOutGetNumDevs() <> 0 Then
Select Case mySound
Case 1
strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Ding.wav"
dummy = sndPlaySound(strsounddatei, 0)
Case 2
strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Chord.wav"
dummy = sndPlaySound(strsounddatei, 1)
End Select
End If
End Function
| A | B | |
| 1 | 1 | Irgendwas |
| Formeln der Tabelle | ||||
|