Beep Ton - Uhrzeit
29.09.2016 12:14:17
Kai
Ich habe jetzt durch ein wenig Suche herausgefunden wie ich mithilfe von Makros eine sich minütlich aktualisierende Uhrzeit in meine Excel Tabelle einbaue und habe dies in meine Tabelle eingefügt
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Now, "hh:mm")
ET = Now + TimeValue("00:01")
Application.OnTime ET, "Zeitmakro"
End Sub Diese Uhrzeit soll quasi als Basis dienen. Ich habe nun bspw 6 weitere Uhrzeiten in meiner Tabelle verteilt (Man könnte es natürlich auch so regeln dass sie alle unter bzw nebeneinander stehen). Diese Uhrzeiten sind per Hand eingetippt und nicht mit einem Makro.
Ich möchte nun das ein BEEP Ton ertönt sobald die Makro Uhrzeit die per Hand eingetippte _
Uhrzeit erreicht, also beide Zellen gleich sind. Das einzige was ich bisher finden konnte ist
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") >= 10 Then
Beep
End If
End Sub
Vielen Dank :)
Anzeige