Sound einspielen bei einem Ereignis
Matthias
Wer kann helfen ?
Anzeige
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [A1] Then Exit Sub
If Target > [A2] Then Call Play("aba")
End Sub
Private Sub Play(ByVal s As String)
Dim i As Integer
Dim t As String
For i = 1 To Len(s)
t = Mid$(s, i, 1)
Select Case t
Case "a": Call Beep(444)
Case "b": Call Beep(488)
Case "c": Call Beep(550)
Case "d": Call Beep(580)
Case "e": Call Beep(640)
Case "f": Call Beep(720)
Case "g": Call Beep(810)
Case "h": Call Beep(860)
Case "i": Call Beep(920)
Case " ": Call Beep(32767)
End Select
Next i
End Sub