VB-Code mit Fehler?
15.07.2008 10:12:00
HannaG
hab hier Code von Chris gefunden, der mich interessiert.
Wenn man in A1 Wert über 100 eingibt, ertönt Wave und ein Popup erscheint. Bei manueller Eingabe einer Zahl über 100 klappt es.
Aber
Jetzt habe ich inZelle A1 folgend Formel eingetragen:
=WENN(F31>100;150;20)
Wenn sich der Wert in F31 ändert, ändert sich natürlich auch der Wert in A1. Aber der Sound/Popup bleibt aus. Was hab ich da übersehen?
LG Hanna
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 1 Then Exit Sub
If Target.Address = "$A$1" Then
If Range("A1") > 100 Then
Call sndPlaySound32("C:\ton.wav", 1)
UserForm1.Show
End If
End If
End Sub