Code spielt Dauerton
03.11.2008 11:49:18
Susanne
Hallo,
habe hier eine Code, der u.a. bei Änderung der Zahl in Zelle D2 eine Wave abspielen soll "ton",sofern die Zahl über 0.0001 liegt.
Spielt er auch, allerdings alle 5 Sekunden, ob sich der Wert in D2 geändert hat oder nicht. Wo liegt der Fehler?
Der Entscheidende Codeteil ist hier mit
***NEU**
XXXX
***Neu***
eingegrenzt.
Gruß
Susanne
Dim myArray(700)
Dim myValue
Dim bolTimer As Boolean
Sub Show_change()
On Error Resume Next
For i = 7 To 600
If Range("D" & i).Value myArray(i - 7) Then
If Not (Range("D" & i).Value = 0) And Not (Range("D" & i).Value = Chr(133)) Then
Application.ScreenUpdating = False
Rows(i).Copy
Rows(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("D" & i).Select
Application.ScreenUpdating = True
End If
myArray(i - 7) = Range("D" & i)
End If
Next i
'**** NEU ****
If Range("D2").Value myValue Then
myValue = Range("D2").Value
If myValue > 0.001 Then Call sndPlaySound32("c:\ton", 1)
End If
'**** NEU ****
Call Timer
End Sub
Sub Timer()
Dim NextTime As Date
If Not bolTimer Then Exit Sub
NextTime = Now + TimeValue("00:00:05")
Application.OnTime NextTime, "Tabelle2.Show_Change"
End Sub
Sub initialize_array()
For i = 7 To 800
myArray(i - 7) = Range("D" & i)
Next i
End Sub
Sub Start_Ueberwachung()
On Error Resume Next
initialize_array
bolTimer = True
Timer
End Sub
Sub Stopp_Ueberwachung()
bolTimer = False
End Sub