Haja`s Excel Sheet BlinkendeZ. m. Sound
22.11.2007 21:01:00
Susanne99
Hallo,
hab mir auf Hajo`S Hp mal die Excelbeispiele angesehen. Das Sheet" blinkende_zelle_2farben-2dedingungen" paßt genau auf meien Bedürfnisse. Toll. Was mir noch fehlt, ist ein Sound, der an die Bedingung "blinken" rot-grün" geknüpft ist. Und zwar sollte der sound alle 5 Sekunden ertönen, solange der Zellwert negativ ist.
Hab zwar zum Thema Sound einiges gefunden, aber ich krieg es nicht hin, sowas in den Hajo-Code einzubauen.
Hat jemand einen ähnliche Idee verwirklicht?
Gruß Susanne
Der Teil des Codes, der wohl verändert werden muß:
Sub Start()
Dim iCounter As Integer
Ende ' Blinken abschalten
VaArr1 = "" ' Variable leeren da Zellen neu verglichen _
werden
VaArr2 = "" ' Variable leeren da Zellen neu verglichen _
werden
On Error Resume Next
For iCounter = 1 To 30
' Ergänzung Hajo
If IsNumeric(Cells(iCounter, 1)) Then
If Range("A" & iCounter) 50 Then
VaArr2 = VaArr2 & "," & "A" & iCounter
End If
End If
Next iCounter
' Veränderung Hajo
If Len(VaArr1) > 1 Then
VaArr1 = Mid(VaArr1, 2, Len(VaArr1) - 1)
erste_Farbe
End If
If Len(VaArr2) > 1 Then
VaArr2 = Mid(VaArr2, 2, Len(VaArr2) - 1)
zweite_Farbe
End If
End Sub