Warum Audioausgabe nur wenn Enter
27.04.2005 15:09:21
Norbert
vielleicht hat wer eine Idee, warum mein Makro in einer klitzekleinen Tabelle nicht richtig funktioniert.
Eine andere Sprachausgabe funktioniert Dank UweDs Hilfe bei Wertwechsel in einem anderen Sheet einwandfrei.
Nun habe ich eine zweite Mini-Tabelle aufgemacht und übernehme dort lediglich den aktuellen Wert aus einer Kursempfangstabelle. Neben dem aktuellen Kurs schreibe ich dann per Hand den Stopkurs rein. Dann sollte untenstehendes Makro den Ton ausgeben. Der wird hier aber nur dann ausgegeben, wenn ich in dem Mini-Sheet irgendwas mit Enter abschließe. Verflixt - ich kommme nicht dahinter, warum die Sprachausgabe hier nicht automatisch folgt. Zeile 2 steht für Stops beim Sell - Zeile 3 für Stops beim Buy und wenn Vorgabewerte über-/unterschritten werden soll der Ton automatisch kommen.
Wo habe ich was vergessen oder falsch geschrieben?
In MODUL1
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub stopkurs()
Call sndPlaySound32("D:\Eigene Dateien\Sound\stopkurs.wav", 1)
End Sub
In TABELLE1(Stopansage)
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D2").Value > Range("E2").Value And Range("C2").Value = "Sell" Then
Call stopkurs
End If
If Range("D3").Value < Range("E3").Value And Range("C3").Value = "Buy" Then
Call stopkurs
End If
End Sub