Excel Sound
30.09.2015 13:37:24
Jens
ich habe ein VBA Makro, mit dem ich in einer Tabelle eine Uhr permanent laufen lassen kann. Diese Uhr tickt immer eine Sekunde hoch. Das Makro habe ich mir mal aus dem I-Net kopiert, es läuft super.
Im selben Makro, möchte ich nun einen Zellwert abfragen (Text) und dann bei erreichen eines Wertes, einen Sound abspielen lassen und zwar ohne, das ich zum Ausführen der Prüfung einen Button o.ä. drücken muss, sondern die Prüfung soll quasi auch jede Sekunde passieren.
Kann mir jemand helfen?
Vielen Dank im Voraus!
Modul:
Public DaEt As Date
Sub Zeitmakro()
ThisWorkbook.Worksheets("Auswertung").Range("D16") = Format(Time, "hh:mm:ss")
DaEt = Now + TimeValue("00:00:01")
Application.OnTime DaEt, "Zeitmakro"
End Sub
Tabelle:
Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub