Tabellenkalkulation

Systemton mit excel

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo fleissige Excelhelfer, gibt es eine Möglichkeit mit Excel Systemtöne bei erreichen einer Uhrzeit (Alarm) zu erzeugen? vielen Dank schonmal Eleve

Antwort 1 von Event

Hallo

Kopier nachfolgenden Code in den Codebereich Deiner Tabelle:
Option Explicit Private Sub Worksheet_Activate() Alarm End Sub Sub Alarm() ActiveSheet.Range("A2").Value = Format(Time, "hh:mm:ss") Application.OnTime Now + TimeSerial(0, 0, 1), "Tabelle1.Alarm" If Time >= Range("A1").Value Then Beep End Sub

Das Makro schreibt in Zelle A2 die lfd. Zeit im Sekundentakt.
Wird die in Zelle A1 eingetragen Zeit überschritten Wird der Windows-Standard-Sound ausgegeben.

Gruß

Antwort 2 von Eleve

Hallo Event

vielen Dank für die schnelle Hilfe.

Ich musste nur die Zeile

Zitat:
Application.OnTime Now + TimeSerial(0, 0, 1), "Tabelle1.Alarm"

in

Application.OnTime Now + TimeSerial(0, 0, 1), "Alarm"

ändern, sonst habe ich einen Fehler bekommen.

Aber jetzt läufts - nochmals danke.

Eleve

Antwort 3 von Event

Hallo Eleve,

Gut dass Du DIr selbst helfen konntest.
Wahrscheinlich hast Du den Code in ein Modul oder Userform kopiert und nicht in den Codebereich der Tabelle1.

Aber wenns klappt ists auch Ok.

Gruß

Antwort 4 von Eleve

Hallo Event

da ich Anfänger bin hab ich den code in ein Modul, wie Du vermutet hast.
Aber jetzt hab ich mich auf die Suche begeben und siehe da ich hab den Codebereich gefunden.

vielen Dank für die Anregung

Eleve