Akustisches Signal bei Ereichen der Uhrzeit

[Bernd Kl]

Hallo;
Gibt es die Möglichkeit, dass der PC ein akustisches Signal ausgibt, wenn eine vorher fest gelegt Uhrzeit erreicht ist?

Ich habe in der Spalte D eine Tabelle untereinander von Zeile 4 bis Zeile 50 festgelegte Uhrzeiten und in der Zelle f2 die Uhrzeit.

Immer wenn in der Zelle e4 die eingetragene Zeit mit der Uhrzeit in F2 identisch ist, soll ein Signal ertönen.


Gruß
Bernd

[Ralf A]

Hi Bernd,

verwende OnTime: https://docs.microsoft.com/de-de/office ... ion.ontime
Ob Du dann Beep verwendest oder eine Sounddatei startest, bleibt Dir überlassen...

[Hajo_Zi]

Hallo Bernd,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code: Alles auswählen

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$2" And Range("E2") = Range("F2") Then
        MsgBox "gleiche Zeit"
    End If
End Sub


Gruß Hajo

[Bernd Kl]

Hallo & Danke für die Antwort.

Goethe sagte: Jede Lösung eines Problems hat ein anderes Problem zur Folge.
So auch hier.
Der Code beißt sich mit dem hier aufgeführten.

Private Sub Worksheet_Change(ByVal Target As Range)
'
' wandelt Zahlen in das Uhrzeitformat
' Die Eingabe erfolgt als "700".
' Die Umwandlung von 700 in "07:00" erfolgt durch diesen Code
'
Dim sTxt As String
If Target.Column < 2 Or Target.Column > 2 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ErrorHandler:
ActiveCell.ClearContents
Application.EnableEvents = True

End Sub

' Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.Address = "$E$2" And Range("E2") = Range("F2") Then
' MsgBox "gleiche Zeit"
' End If
'End Sub

[Hajo_Zi]

mit Exit Sub sollte man nicht arbeiten.
es gibt nur ein Change.
Warum nicht vor
Dim STxT?

Gruß hajo

[Bernd Kl]

Hallo;
ich habe das mal so verschoben, doch das funktioniert nicht.
Ich werde mal darüber nachdenken, den 2. Code einfach in ein anderes Blatt setzen und auch dort die Endzeit und den Timer hineinzu setzen.
Sieht dann zwar etwas komisch aus, doch evtl. funktioniert es dann.
Also erst einmal herzlichen Dank.

PS: Exit Sub habe ich vor etwa 8 Jahren hier so gelernt und in meinem Alter (75) bin ich nicht mehr so fit.

[Hajo_Zi]

Ja das sehe ich auch so es ist zu kompliziert <> durch = zu ersetzen.
If Target.Column >1 Or Target.Column =1 Then

dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue und ich baue keine Datei nach.

Gruß Hajo

[Ralf A]

von Hajo_Zi » 16. Mai 2019, 14:17
mit Exit Sub sollte man nicht arbeiten.

Wer erzählt denn so einen Schwachsinn? Die, die immer behaupten, Goto verwendet man nicht? Die, die nie eine ordentliche Fehlerbehandlung berücksichtigen? Na ja, die dürfen das. Die genießen ja Narrenfreiheit...
Ob die Fehlerbehandlung hier, an dieser Stelle, gelungen ist, das ist eine andere Frage...

...ich warte noch auf den Tag, an dem jemand behauptet: Sub oder For oder Do verwendet man nicht...

[Bernd Kl]

He Leute;

tut mir ja leid, dass ich hier offensichtlich einen Streit ausgelöst habe - nur das hilft mir nicht weiter.

Habt Ihr nun einen Tipp für mich oder muss ich das Vorhaben aufgebe?
Das wäre zwar kein Weltuntergang, doch freuen würde ich mich trotzdem.
Bernd

[zoxxy]

Hallo!

Schau dir mal diese Seite an http://www.cpearson.com/excel/PlaySound.aspx

[Flotter Feger]

Hallo Bernd,

Schau mal hier https://www.clever-excel-forum.de/thread-20639.html
Du musst dich anmelden, um die Datei runterzuladen.

Vom Blackberry gesendet

[Bernd Kl]

Liebe Leute;

ich habe das Vorhaben aufgegeben, da es offensichtlich nicht möglich ist den Code in den bestehenden zu integrieren.
Ich danke Euch für Eure Mühe.
Bernd

[Storax]

Liebe Leute;

ich habe das Vorhaben aufgegeben, da es offensichtlich nicht möglich ist den Code in den bestehenden zu integrieren.
Ich danke Euch für Eure Mühe.
Bernd

Ergänzung: Für Dich nicht möglich.
Die Tipps, die ich hier sehe, sind ausreichend.

[Bernd Kl]

Sorry Storax. Du hast natürlich Recht.
Ich bin nicht mehr fit genug, um das zu wuppen.

Vor 10 Jahren war das noch anders. Inzwischen bin ich einfach zu alt geworden und habe in der Zeit nix mehr mit VBA gemacht.
Trotzdem danke.
Gruß
Bernd

[russian-dima]

Hallo Bernd,
vielleicht hilft dir ja ein einfaches kleines Beispiel weiter.

Einfach mal so testen wie es in der Beschreibung steht. Dann einmal in den VBA-Editor reingehen (ALT+F11) und schauen wie es funktioniert.

LG Russi@n-Dim@